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INTRODUCTION 


Burroughs RPG (Report Program Generator) is a machine~independent programming 
language suitable for implementation in a wide variety of data processing ap- 
plications. B 1700 RPG embraces RPG as implemented on IBM 360/20 Systems and 
RPG II as implemented on IBM S/3. In addition, Burroughs has taken advantage 
of the sophisticated operating system of the B 1700 to allow optional exten- 
sions to the above-mentioned implementations. 
Burroughs B 1700 RPG defaults to that of IBM S/3. A simple control option 
signals the compiler to generate code as in 360/20 RPG. Throughout this 
manual, reference to 360/20 RPG will be denoted by "RPG 1". 
Burroughs B 1700 RPG offers the following advantages to the user: 

a. Simple, generative syntax for ease of program implementation. 


b, Accelerated programmer training and simplified retraining require-~ 
ments. 


c. Ease of conversion through standard implementation, 

d. Ease of program modification. 

e. Standardized documentation. 

f. Facilities for program conversion to COBOL (refer to appendix F). 


This manual describes Burroughs B 1700 RPG, and is a reference to the RPG 
Specification Forms together with each of their appropriate fields. 


Columns not mentioned in the specifications sections are not used and must be 
left blank. 


When left and right broken brackets (< >) are used in syntax descriptions they 
denote that a metalinguistic variable of the language is to be placed at that 
point in the syntax. 


This reference manual reflects the MARK IV.1 System Software Release version 
of the RPG compiler. 
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SECTION | 


RPG OPERATION 


A program written in Burroughs RPG, called a source program, is accepted as 
input by the RPG Compiler, The compiler first verifies that the source pro- 
gram is syntactically error-free, then converts this source into COBOL S- 
Language, which is then ready for execution on the system. The S~Language 
generated by the compiler can be executed by using an Interpreter. The 
Interpreter causes the system hardware to perform the operations specified 
by the S-Language Program and, thus, by the programmer who wrote the source 
program, 


For a more detailed description of the function of the S~Language as it rem 


lates to the Interpreter and the hardware, refer to B_ 1700 System Software 
Qperational Guide, Form No. 1068731, 
RP RCE PROGRAM 


An RPG Source Program is divided into eight parts which must appear in the 
following order: 


Control Card Specifications 

File Description Specifications 
Extension Specifications 

Line Counter Specifications 
Telecommunications ‘Card Specifications 
Input Specifications 

Calculation Specifications 
Output-Format Specifications 


A description of the above specifications is contained in the paragraphs that 
follow. 


CONTROL CARD SPECIFICATIONS 


These specifications provide certain information about the program to the 
B 1700 RPG Compiler. 


FILE DESCRIPTION SPECIFICATIONS 

These specifications provide information about the equipment being used, and 
associate files with the hardware devices that will be used. The file types 
(i.e., input, output, combined) and blocking factors are also given, 


EXTENSION SPECIFICATIONS 


These specifications are used to describe tables and arrays that will be used 
with the program, 


LINE COUNTER SPECIFICATIONS 


These specifications provide information about the number of lines to be 
printed on each page of the output forms that are used. 


TELECOMMUNICATIONS CARD SPECIFICATIONS 

The Telecommunications card is used to further define a file specified on the 
File Description Specifications as a DATACOM or BSCA file. There is no 
special form for coding Telecommunications Specifications, 


INPUT SPECIFICATIONS 


These specifications are used to describe the record layouts of all input files 
used by the program. 


CALCULATION SPECIFICATIONS 


These specifications define the steps necessary to accomplish the desired task 
when operating on data described in the program, 


OUTPUT-FQRMAT SPECIFICATIONS 


These specifications are used to specify the type and arrangement of data that 
will be written as output from the program. 


DOLLAR CARD SPECIFICATIONS 

The Dollar Card ($ Card) Specifications sheet is also defined for Burroughs 
RPG, These specifications are used to accommodate machine- and system= 
dependent features, and may appear anywhere in a RPG Source Program, unless 
otherwise specified (see Section 11). 


The above specifications are coded using the following Report Program 
Generator forms: 


a. Control Card Specifications/File Description Specifications 
(Form No. 1055837) 


b, Extension Specifications/Line Counter Specifications 
(Form No. 1055852) 


c. Input Specifications (Form No. 1055860) 

d. Calculation Specifications (Form No. 1055878) 
e, Output~-Format Specifications (Form No. 1055886) 
f. Dollar Card Specifications (Form No. 1055845) 


RPG SOURCE PROGRAM DECK 


The coded information contained on the specification forms is recorded in 
punched cards which constitute the source program. The arrangement of these 
cards in the source deck is illustrated in figure 1-1. 


“QO OUTPUT-FORMAT SPECIFICATIONS 


I INPUT SPECIFICATIONS 


T TELECOMMUNICATIONS CARD 
SPECIFICATIONS ; 


L LINE COUNTER SPECIFICATIONS 


E EXTENSION SPECIFICATIONS 


F FILE DESCRIPTION SPECIFICATIONS 
H CONTROL CARD SPECIFICATIONS 


eat i 
— 
Ty A NR ETT 
eT | 
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Figure 1-1. RPG Source Program Deck 


Should source corrections become necessary, appropriate changes can be made 
and the program recompiled, Thus, the source program deck always reflects 
the S-Language being operationally executed. See Section 12 for operating 
instructions. 


RPG_ FORMAT 


As mentioned in the introduction to this manual, Burroughs RPG accepts source 
statement input in the format of either RPG 1 or RPG II. 


The following is a list of exceptions found in B 1700 RPG: 


a. The Control Card requires simplified recoding before compiling pro7- 
grams from systems other than B 1700. 


b. B 1700 RPG allows 511 characters for alpha fields and 31 for numeric. 


c. IBM's RPG uses standard right signed numeric fields, whereas 
Burroughs B 1700 RPG uses standard left sign. IBM's System 3 
standard plus sign is 'F' right sign, the 360/20 standard plus 
sign is 'C' right sign, whereas the Burroughs standard plus sign 
is 'C' left sign. B 1700 RPG allows the right sign option for 
system compatibility. (Refer to $RSIGN option in Section ll.) 


Numeric fields must be edited if the C zone punch is not wanted on 
output. Otherwise, a positive unedited numeric field will contain an 
alpha character in the left~most position of the field. For example, 
C1IFOFI1F3 would appear as A013 on the printed output. However, if 
this field is edited, it will assign a F to the left-most character, 
changing the output to appear as 1013. 

96-column devices will not allow packed decimal format. 


The following features and language constructs are not supported in 
Burroughs RPG: 


1. Binary data format. 

2 Sterling data format, 

3. Alternate collating sequence, 

4 Record address files, 

Inquiry programs. 

Spread card or TR format, 
Printer keyboard output files. 
External assembler subroutines. 


Blank after literals. 


o fF NN DOD wo 


10. Redefined field lengths. 

11, Factor 1 and Factor 2 both literals. 
12, Card print feature of IBM's 360/20. 
13. File translation. 


14. Processing sequential files within limits. 


SECTION 2 


RPG LANGUAGE ELEMENTS 


Burroughs RPG is a programming language based upon a fixed series of events, 


called the RPG "program cycle", 
Due to the strict limitations of the generated progran, 
must conform to rigid rules of syntax, 


which takes place during program execution. 
the source language 
The following paragraphs and sections 


define the rules for writing programs using the RPG language, 


CHARACTER SET 


The minimum RPG character set consists of the following characters: 


\ 


%*AR 


blank or space 
ampersand 


period or decimal point 


minus sign 
dollar sign 
asterisk 
comma 
apostrophe 


The following RPG characters are optional and may be added to the above list: 


-J—oeM AV AF 


BlN re 


2 Ot vl 


plus sign 

less than sign 
greater than sign 
left parenthesis 
right parenthesis 
left bracket 
right bracket 
logical OR 
logical NOT 
exclamation point 
semicolon 

Slash (virgule) 
percent sign 
underscore 
question mark 
colon 

pound sign 

at sign 

equal sign 
quotation mark 


CHARACTERS USED FOR NAMES 


The character set used to form names consists of the 36 characters: 0O through 
9 and A through Z, 


CHARACTERS USED FOR EDITING 


The character set used for special purposes within edit words in the Output- 
Format Specifications consists of the following nine characters: 


blank or space 
0 zero 
$ dollar. sign 
decimal point 
; comma 
CR credit symbol (two characters) 
* asterisk (check protect) 
& amperand 
7 minus sign 


DEFINITION OF NAMES 


A name must be left~-justified in the field, must begin with an alphabetic 
character, and is ended by a space or the end of the field, whichever comes 
first. All characters in a name except the first may be any combination of 
alphabetic and numeric characters (special characters are not allowed), 
Blanks may not appear between the characters in a name. 


RPG defines the following four types of names: 


Filenames 

Vector names (table or array names) 
Field names (variable names) 

Labels 


FILENAMES 


A filename is a collective name or word that designates a set of data items. 
The contents of a file are divided into logical records which are made up of 
any consecutive set of data items. Filenames cannot exceed eight characters 
and the first seven characters must be unique among filenames (e.g., DISKFILE 
and DISKFIL are considered by the compiler to be equal). 


VECTOR NAMES 


A vector name is used to identify a data item which is actually a table or 
an array. The table will be loaded with a number of elementary data items 
which are accessed through use of the vector name that identifies the entire 
table. Vector names cannot exceed six characters and must be unique among 
vector and field names. 


FIELD NAMES 


A field name is used to identify an individual element of data. Field names 
cannot exceed six characters and must be unique among vector and field names, 
A separate memory area is reserved for each unique field name which is com- 
pletely unrelated to any memory area reserved for any other field name, 


LABELS 
A label is used only to identify a point in the Calculation Specifications to 


which a GOTO operation will branch, or to identify the beginning of a sub- 
routine. Labels cannot exceed six characters and must be unique among labels. 


DEFINITION OF LITERALS 


A literal is an item of data which contains a value identical to the characters 
being described. There are two classes of literals: numeric and alphanumeric. 


NUMERIC LITERAL 


A numeric literal is defined as an item composed of characters chosen from the 
digits O through 9, an optional plus sign (all numeric literals not signed 
minus (~) are assumed plus) or minus sign (—), and the decimal point or decimal 
comma (see item e below). The rules for the formation of a numeric literal 
are: 


a, There must be at least one digit in a numeric literal. 


b. The sign of a numeric literal must appear as the left-most character. 
If no sign is present, the literal is defined as a positive value, 


c. Only one sign character and/or one decimal point may be contained in 
a numeric literal, 


d. The maximum total length of a numeric literal is 10 characters, in~ 
cluding sign and decimal point. 


e. Decimal commas must be used in place of decimal points if the Inverted 
Print Options I or J are used (Control Card, Column 21). 


f. Embedded blanks are not allowed. 
The following are examples of numeric literals: 


13427 

.005 

+1.808 = 1.808 
-,0968 

7894, 54 


ALPHANUMERIC LITERAL 


An alphanumeric literal may be composed of any allowable character. The 
beginning and end of an alphanumeric literal is denoted by an apostrophe, 

Any character enclosed within apostrophes is part of the alphanumeric literal. 
Consequently, all spaces enclosed within the apostrophes are considered part 

of the literal. Two consecutive apostrophes within an alphanumeric literal 
cause a single apostrophe to be inserted into the literal string. An alpha- 
numeric literal which consists only of four consecutive apostrophes results 

in a single apostrophe. The rules for the formation of an alphanumeric literal 
are: 


a. There must be at least one character in an alphanumeric literal. 
b. The maximum length of an alphanumeric literal used in the Calculation 
Specifications is eight characters, and in the Output~Format Specifi- 


cation is 24 characters. 


ec. Alphanumeric literals may not be used for arithmetic operations. 


The following are examples of alphanumeric literals: 


Literal on Source Program Level Literal Stored b ompiler 
"ACTUAL ' ACTUAL 
'-~1234.56' -1234.56 
"WEEK''S' WEEK'S 
"TODAY''S DATE! TODAY'S DATE 
yre*eer ' 
tAttBt A'B 
tArtrrptr A''tB 


DEFINITION OF RESERVED WORDS 


Reserved words have a specific function in the RPG syntax and are of two 
types: special words and operation codes, 


SPECIAL WORDS 


Reserved words are used in the Input, Calculation, and Output~Format Speci- 
fications, and specify such things as page numbering, date fields, and card 
interpreting. 


The following special words are reserved for use as variables: 


PAGE 
PAGEI1 
PAGE2 
UDATE 
UMONTH 
UDAY 
UYEAR 
*PRINT 
*PLACE 


Their use is discussed fully in the sections where they are used. 


NOTE 


The special words JDATE and UTIME have 
been reserved and, if used, will cause 
a syntax error. 


OPERATION CODES 


These reserved words are used in the Calculation Specifications, and specify 
operations to be performed upon data items. A complete description of the 
operation codes is presented in Section 9. 


COMMON_FIELD DEFINITIONS 


The RPG specification forms have certain common fields which have consistent 
entries within a RPG Program. These fields and their respective entries are 
described below, so that they need not be repeated in subsequent sections. 


PAGE 


The PAGE entry in the upper left-hand corner of each specification form 
is used to number the coding forms sequentially for each source program. 
Normally, only numeric characters in the range 01-99 would be used; how- 
ever, any EBCDIC characters (including blanks) are valid entries. 


LINE 


The LINE entry is used to number the individual lines on each speci-~ 
fication form sequentially. Normally, only numeric characters in the 
range 000-999 would be used; however, any EBCDIC characters (including 


blanks) are valid entries. 


Columns 3-4 are preprinted so that in most cases the entry is already 
made, For example, the File Description Specifications form contains 
line numbers for lines 02 through 07. If more than six lines are needed, 
additional entries may be made below line O7 and numbered 08, 09, etc. 
The units position (column 5) may be used to insert a line between two 
previously written lines (see figure 2-1). 
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iw fT [| O (99 | 


lOlmy TT TO iG 10} 


Ci We eS IE: 
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— 
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Figure 2-1. Insertion of Coding Lines 


The compiler sequence~checks all input cards on columns 175 so that all 
lines should be numbered in ascending numerical order. If a sequence 
number (page and line number) is encountered that is equal to or less 
than the preceding sequence number, a sequence error warning message 
(S) will be emitted by the compiler. 


FORM TYPE 


This entry identifies the type of specification for each line of code, 
This entry is preprinted for all but the Telecommunications Card 
Specifications. Valid entries for this field are: 


Definition 


Header Card (Control Card Specification). 
File Description Specification. 

Extension Specification. 

Line Counter Specification. 
Telecommunications Card. 

Input Specification. 

Calculation Specification. 

Output-Format Specification. 

Not allowed except for Comment Card or 
Dollar Card (depending upon entry in 
column 7). 


7 COMMENTS/DOLLAR CARD 


Since it is often necessary to write explanatory statements within the 
source program, the Comment Card allows the entire line to the right of 
column 7 (which contains an asterisk, '"*'") to be produced on the source 
program listing for documentation clarity. Comments are not instruc” 
tions to the RPG Program or Compiler, but serve only as a means of 
including program documentation, Any valid EBCDIC characters may be 
used in a comment line. An asterisk in column 7 overrides column 6, 

An example of comment line coding is illustrated in figure 2-2. 


T 
E 
E 
a 
i 
| 
i 
iz 


a ee ee 


Hp RE 
ee | 


Se ee 
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Figure 2-2, Comment Line Coding 


The $ specification in column 7 designates the line to be a Dollar Card 
Specification which allows the RPG Compiler to accommodate machine- and 
system-dependent features. A dollar sign in column 7 overrides column 6, 
Dollar Cards may appear at any point in the RPG Source Program Deck. 
Section 11 describes the use of these specifications. 


75-80 PROGRAM IDENTIFICATION 


The PROGRAM IDENTIFICATION entry in the upper right-hand corner of each 
specification form is ignored by the compiler, but will appear on the 
source program listing. Thus, it can be used for documentation to 
identify different portions of the program, if desired. 


SECTION 3 


CONTROL CARD SPECIFICATIONS 


RPG can use a special card, called a Control Card, to provide certain informa- 
tion about the program to the RPG Compiler. The Control Card can transmit to 
the compiler such information as type of source input, whether debugging is to 
take place, sign positions, and so forth. If columns 7 through 74 are blank, 
the Control Card is not required, One line is provided on the Control Card 
Specifications and File Description Specifications form for coding of the 
Control Card information (see figure 3-1). 


FIELD DEFINITIONS 


The fields for the Control Card Specification form are defined in the para- 
graphs that follow. 


L=2 PAGE 
Refer to Section 2 for a complete description. 
oS a LINE 
Refer to Section 2 for a complete description. 
6 FORM TYPE 
This field must be coded with the letter H. 
15 DEBUG 
Column 15 specifies whether or not the DEBUG operation is to be 
significant during program compilation. To perform the DEBUG opera~ 
tion: 
a. Column 15 of the Control Card must be coded with a l. 


b. The operation code for DEBUG must appear in the Calculation 
Specifications. 


If this field is left blank, any DEBUG operations encountered in the 
Calculation Specifications will not be executed at run-time, but they 
will still be checked syntactically by the compiler. 


PROGRAM ID 


Burroughs B 1700 RPG 


PAGE OF 
PROGRAMMER DATE 
naaeae 80 
PROGRAM 
CONTROL CARD SPECIFICATIONS Be aon 


G14006 


15 Specifies whether the DEBUG operation is to be used 
during compilation, Entries: Blank or l. 


17 Specifies the location of the sign in all numeric 
data items. Entries: Blank or L, or R 


21 Specifies the punctuation (INVERTED PRINT) to be 
used for numeric literals. Entries: Blank, I, J, or D. 


41 Causes output lines to be conditioned by the 1P 
indicator. Entries: Blank or l. 


o1 Specifies which RPG dialect to use, RPG 1 or 
RPG II. Entries: Blank or 1. 


Figure 3-1. Control Card Specifications Summary Sheet 
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21 


Column 21 | With a Comma or With a Comma to the Left or 


SIGN POSITION 


This field specifies the location of the sign in all numeric data items 
and may have the following entries: 


Blank or L 
R 


The sign position specified by this field may be overridden by the 
RSIGN Dollar Card Specification (refer to Section 11) if different. 
Sign positions are required within the program. 


Sign in left-most (high-order) 
character position, 


Sign in right-most (low-order) 
character position, 


INVERTED PRINT 
This field is used to specify the type of punctuation to be used for 
numeric literals in the Calculation Specifications, the order of the 
system date field, and the edit codes used on output, The valid codes 
are: 

Definition 


Domestic format. 


International format, 


International format (leading 
zeros not suppressed for zero 
balances), 


United Kingdom format, 


Table 3-1 shows inverted print specifications and their resulting 
formats. 


Table 3-1. Inverted Print Specifications 


Numeric Literal Edit Codes Zero Suppress UDATE With 


a Slash or 


a Period as a or a Period as Right of the a Period 


Decimal Point a Decimal Point | Decimal Point 
5678.90 7,654,32 Mon/Day/Year 
5678.90 7,654.32 Day/Mon/Year 


5678 ,90 7.654,32 , Day.Mon. Year 


5678 ,90 7.654,32 , Day.Mon, Year 


41 


o1 


75-80 


FORMS POSITIONING 


Since it sometimes becomes necessary to align special forms in the line 
printer before beginning to print a report, a 1 in column 41 will cause 
all output lines conditioned by the 1P indicator to be printed more 
than once when the program is executed. Each time the lines are 
printed, the program is temporarily suspended to allow the operator 

to reposition the forms. Printing of the lines may be requested by 

the operator as many times as necessary to align the forms properly. 

If this field is left blank, 1P lines are printed only once, 


SOURCE INPUT DIALECT 


Burroughs RPG supports two dialects. RPG 1 dialect is compatible to 

IBM 360/20 RPG. RPG II dialect is compatible to IBM System/3 RPG II. 
Both dialects support Burroughs optional extensions. The RPG II dialect 
is assumed by default. If it is required to use RPG 1 features, a l 
must be entered in column 51 of the control card, otherwise this column 
should be blank. The source program is not checked against the syntax 
of the chosen dialect; this option is only used to resolve conflicts 
between the dialects. Providing there is no conflict, RPG II features 
can be used when RPG 1 dialect is specified and vice versa, 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 4 
FILE DESCRIPTION SPECIFICATIONS 


Every file to be used by a RPG Program, except compile-time vector files, must 
be described to the compiler through the File Description Specifications. In- 
formation, such as filenames, hardware devices, record and block lengths, and 
how the file is to be used, is provided by these specifications. 

The B 1700 system provides the facility for the object program to extract 
record and block lengths from the header record of existing disk files and to 
be inhibited by use of the dollar option REFORM. 

The lower portion of the Control Card Specifications and File Description 


Specifications is used for coding the File Description information. Each 
file to be described requires one line on the form. 


FIELD DEFINITIONS 


Figure 4-1 can be used in conjunction with the following field definitions for 
the File Description Specifications. 


1-2 PAGE 
Refer to Section 2 for a complete description. 
375 LINE 
Refer to Section 2 for a complete description, 
6 FORM TYPE 
This field must contain a F, 
7-14 FILENAME 
This field is used to assign a unique name to every file used by the 


program, Filenames must be assigned in accordance with the rules out~- 
lined in Section 2 of this manual. 


A, Contains name unique in the first 7 characters for 
every file to be used, 
B. 15 Specifies low each file is to be used, Entries i, 
Oo, U, C, or D 
C. 16 Describes the use of input, update, and combined 
files. Entries: Blank, P, S, C, T, or D 
D. 17 Specifies which files are to be checked for End-of- 
File during multifile processing. Entries: Blank or E, 
E. 18 Specifies the order matching fields are to be 
checked, Entries: Blank or A, or D 
F. 19 Specifies whether the file contains fixed- or vari- 
able-length records, Entries: Blank or F, or V. 
G, 20-23 Specifies the block size, Entry is device dependent. 
H, 24-27 Specifies the record size, Entry is device dependent, 
I 29-30 Specifies the length of the key field. Entries: 1-99, 
right-justified. 
J. 31 Describes the format of the keys within the records. 
Entries: Blank, K or A, P, or N. 
K. 32 Identifies how a file is to be accessed or whether 
multiple buffers are required, Entries: I, 179, or Blank. 
L. 33-34 Specifies the overflow indicator used to condition 
records. Entries: OA-OG, OV or Blank. 
G14007 


FILE FORMAT 
SEQUENCE 
END OF FILE 
FILE DESIGNATION 
FORM TYPE FILE TYPE 


| FILENAME “Alle 


13 $20 27128 


RECORD ADDRESS TYPE 


RECORD ADDRESS 
FIELD LENGTH 


PROCESSING MQDE 


FILE ORGANIZATION TYPE 
OVERFLOW INDICATOR 
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35-38 Specifies the key field starting position in each record 
for indexed files. Entries: 1-4095, right-justified. 


39 Indicates whether an output table or array file will be 
further described an Extension or Line Counter Specifications, 
Entries: E, L, or Blank, 


40-46 Identifies the input/output device to which each file 
is assigned. Entries: READER, MFCU1, MFCU2, PUNCH, PRINTER, 
PRINTR2, TAPE, DISK, CONSOLE, BSCA, DATACOM, 


53 Entries only meaningful to the B 1700, Entries: U (un- 
labelled file), F (special forms), or B (printer backup). 


60-65 Specifies number of bytes of memory to be set aside 
for an index, Entries: 1-9999 right-~justified. 


66 For sequential or indexed disk files it specifies addi- 
tion to existing file or unordered records to be loaded. 
Entries: A, U, or Blank, 


70 Specifies action to be taken during close of the file 
(tape and disk files). Entries: P, U, N, R, or Blank, 


71-72 Indicates whether file is to be conditioned by an 
external indicator. Entries: U1-U8 or Blank. 


File Description Specifications Summary Sheet 


15 FILE TYPE 


This field is used to identify the manner in which the program uses the 
file. Valid entries are: 


Definition 


Input file. 
Output file. 


Update file. 
Combined file. 
Display file, 


I Input Files 


Input files contain records that the program uses as a source of 
data, If a file is described as input, it indicates that records 
will be read from that file. Input files must be further de- 
scribed on the Input Specifications form with the exception of 
table files, which must be described on the Extension Specifica- 
tions form, 


O Output Files 


Output files contain records that are written, printed, or punehed 
as output from the program. All output files should (not required) 
be further described on the Output~Format Specifications form, ex- 
cept for output table files, FILE DESIGNATION (column 16) must 

be blank for all output files except chained direct files. 


U Update Files 


Update files are disk files from which a program reads a record, 
changes fields in the record, and writes it back into the same 
location from which it was read. All update files must be further 
described on the Input Specifications and should (not required) be 
described on the Output~Format Specifications form, A chained 
file or a demand file may be updated at detail time, at total 
time, or at exception time, All other disk files can be updated 
only at detail time. 


C Combined Files 


Combined files are card files which can be used for both input 
and output. These files consist of cards that are read by the 
program and are subsequently punched and/or printed as output. 
The punching will be into the same cards that have been read and 
output may occur only once per cycle. Combined files must be 
further described on the Input Specifications and should (not re-7 
quired) be described on the Output~Format Specifications form, 


D Display Files 


Display files are used to print a field or record directly on the 
console printer. The DSPLY operation code must be used in the 
Calculation Specifications in order to perform the print opera~ 
tion. Display files are described only on the File Description 
Specifications form, 
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FILE DESIGNATION 


This field is used to further describe the use of input, update, and 
combined files. It must be left blank for all output files (includ- 
ing display files), except for chained output files. Acceptable 
entries for this field are: 


Definition 
Output file, 
Primary sequential file. 
Secondary sequential file. 
Chained (random) file. 
Input table file, 
Demand file. 


Pp Primary File 


A primary file is the principal file from which the program reads 
input records, and may be designated as input, update, or combined. 
Every RPG program must have one and only one primary file; all 
primary files described after the first one named are considered 
to be terminal errors. The primary file must be declared before 
any secondary files or a warning message is emitted. 


If there is no P entry in the File Description Specifications, a 
warning message is emitted and the first S (secondary) file de- 
fined is assumed to be the primary file. When no primary or 
secondary files are present, a syntax error is emitted. 


Ss Secondary Files 


Secondary files are all files other than the primary file involved 
in record selection during multifile processing. Note that this 
excludes table, chained, and demand files. These files are pro- 
cessed in the same order in which they are written in the File 
Description Specifications. A secondary file must be an input, 
update, or combined file. 


C Chained File 


A chained file may be an input, output, or update file assigned 
to a disk that uses the CHAIN operation code to read or write 
records randomly. Chained indexed files may only be input or 
update. 


T Table File 


A table file is a sequential input file that contains vector 
entries which can be read into the program during pre-execution~ 
time. Only pre~execution-~time vector files are described on the 
File Description Specifications form. Pre-~execution-time vectors 
must be described on the Extension Specifications form. 
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Table files are only a means for supplying entries for tables 
used by the program and are not involved in record selection 
during processing at execution time, All records in table files 
read during program execution are read before any other data 
records. 


Both compile-time and pre-~execution~time vectors may be changed 
at execution time; however, vector entries read during compila- 
tion can be permanently altered only by recompiling the program. 


A vector output file, written or punched at End-of-Job, is defined | 
as a normal output file and does not require an entry in column 16. 


D Demand File 


A demand file may be an update, input, or combined file from which 
records are read through use of the READ operation code in the 
Calculation Specifications, Demand files may only be read se~ 
quentially. 


END OF FILE 


This column specifies which files are to be checked for End-of~File 
during multifile processing in order to turn the last record indicator 
(LR) ON. It applies only to input, update, and combined files declared 
as primary or secondary, and is used to indicate whether or not the pro- 
gram may end before all of the records from the file are processed, 
Valid entries for this field are: 


Definition 


If this entry is blank for all 
files, all records must be read 
from all files before the program 
may end, If this entry is blank 
for only some files the program may 
end whether or not all records from 
the file have been read, 


All records in the file must be read 
and processed before the program may 
end. 


If all records from all input files must be read and processed before 
the LR indicator can be turned ON, this column must be blank (or contain 
E) for all files. 


Specifying an E in column 17 of the File Description Sheet indicates 
that the job is to end after all records are processed from the file 
for which the E was specified. In most cases, the job will end at the 
time all records from that file are processed. However, under certain 
conditions, additional records may be processed after all records from 
the file with the E designation are processed. The exceptional situa 
tion is in matching records when an E is designated for the primary 
file and all records from that file have been processed. The job will 
end only after all secondary records that match the last primary re- 
cord have been processed or the first secondary record without a match 
field has been encountered. 
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SEQUENCE 


This field is used only by primary and secondary files to indicate 
whether or not the program is to check the sequence of the input records. 
The Input Specifications form (columns 61-62) must be used to specify 
the match fields within the input file records. This entry must be 

left blank for all files other than primary and secondary files. Ac” 
ceptable entries for this field are: 


are to be sequence~checked in 
ascending order. 


Records with matching fields 
are to be sequence~checked in 
descending order. 


Sequence checking is performed when matching fields have been specified 
for the records ina file. If a record from a matching input file is 
found to be out of sequence, the program halts. If the program halts, 
the operator may make one of the following entries: 


Console Message Definition 


pe er 


<mix index> AXGO Ignore the record out of sequence 
and read the next record from the 
same file. 


<mix index> AXSTOP Ignore the record out of sequence, 
turn on the LR indicator, and per- 
form all final detail and total 
calculation procedures. 


<mix index> DS Discontinue the program. 


All sequence checking is performed according to the EBCDIC collating 
sequence (see Appendix B). If any matching file specifies descending 
(D) sequence, all files must specify descending sequence. 


FILE FORMAT 
This field specifies whether the file contains fixed- or variable-length 


records. Variable-length records may not be specified for files other 
than those assigned to tape. The acceptable entries are: 


Entry ~ Definition 
Blank Fixed record length. 
or F 

V Variable record length 


(tape files only). 


20-27 


BLOCK AND RECORD LENGTH 


These fields are used to specify the block and record sizes for the 
file, The minimum and maximum record and block length allowed depend 


upon the device to which the file is assigned. 


detailed for the B 1700 in table 4-1. 


Device 


CARD 
(80 col) 


CARD 
(96 col) 


PRINTER 


DISK 
TAPE 


Table 4-1. 


Block and Record §izes 


Block Length 


Minimum 


Same as 
record length 


Same as 
record length 


Same as 
record length 


1 
16 


Maximum 
Same as 
record length 


Same as 
record length 


Same as 
record length 


9999 
9999 


This information is 


The Maximum and Minimum Values Allowed For 


Record Length 


Maximum 


80 


Block and record length entries may in certain cases be left blank, 
The treatment of the various cases is tablulated in table 4-2, 


Table 4-2, 


Resulting Action of Block Length and 
Record Length 


Result 


The values entered are used. 


Block and Record Length are 
defaulted to the same value. 


Invalid. 


Block length is defaulted to 
the value specified for Re- 
cord Length. 


Entries in the BLOCK LENGTH (columns 20-23) and RECORD LENGTH (columns 
24-27) fields must be right-justified, and leading zeros may be omitted. 
If the BLOCK LENGTH is left blank, it is assumed to be the same as the 
RECORD LENGTH. If both the RECORD LENGTH and BLOCK LENGTH entries are 
left blank, the default sizes given in table 4-3 are assumed. 
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29-30 


31 


Table 4-3. Default Elock and Record Lengths 


All Printers 
All Disk 


DATA 96, MFCU1, 
MFCU2 


All other devices 


For a fixed-length file, the length of one block and one record must be 
entered in the BLOCK LENGTH and RECORD LENGTH fields respectively. The 
BLOCK LENGTH must be an integral multiple of the RECORD LENGTH. For un- 
blocked files (note that card and printer files are unblocked), the 
BLOCK LENGTH will be equal to the RECORD LENGTH. For card and printer 
files, the RECORD LENGTH specified may be less than the maximum record 
length for the device, e.g., printer files may be specified as 96, 120, 
or 132 characters in length, 


Variable-length records (tape files only) will be defined later, 
PROCESSING MODE 


Any entry in this field is not used by the compiler and should be left 
blank. Any entry other than blank or R is treated as an error for a 
disk file. For non-disk files this field must be blank. 


RECORD ADDRESS FIELD LENGTH 


This field applies only to indexed files. It specifies the length of 
the key field within the records of the file. All key fields in the 
file must be the same length. The key length must not be greater than 
28 characters, The numeric entry must be right-justified within the 
field. Leading zeros may be omitted. The length entered is always the 
number of bytes occupied by the key field. 


RECORD ADDRESS TYPE 


This field applies to indexed disk files and describes the format of the 
keys within the records of the indexed file. The acceptable entries are: 


Definition 


Not indexed. 
Alphanumeric. 
Packed, 

All numeric data in 
alphanumeric format. 


32, FILE ORGANIZATION TYPE 


Column 32 identifies file organization or indicates whether multiple 
buffers are required. Valid entries are: 


Definition 


Indexed file. 


Sequential or direct file with 
1-9 I/O areas, 


Sequential or direct file with 
a single I/O area, 


NOTE 


B 1700 RPG organizational techniques are 
such that file accessing and file organi-~ 
zation are independent of each other. 
This is not so for other RPG implementa- 
tions. 


File Organization 


File organization for the B 1700 is discussed in the following para- 
graphs, 


Sequential 


A sequentially organized file is one whose records follow one after the 
other, in ascending addresses. A sequentially organized file usually 
implies that the records either are in some logical sequence or are 
going to be sorted into some desired logical sequence (see figure 4-2). 
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Figure 4-2. A Sequentially Organized Card File On Disk 


Direct 


A direct file is a randomly organized file whose records have been 
created in a specific location within the file, not one after the 
other as in a sequential file. 


When a record is written to a direct file, the MCP checks to see whether 
the area to which that record belongs already exists. For example, if 

a file has 1000 records per area and 10 areas (a maximum of 105 areas 
may be specified), a write of record number 1500 will write into area 
number 2, a write of record number 6005 would write into area number 7, 
etc. If the area exists, the record is written in the appropriate po-~ 
Sition. If not, space for the new area is sought. Therefore, a file 
containing few records could utilize many of its file areas on disk, 

if the records are scattered, 


The advantage of blocking is partially lost on a direct file. As 
records are created in random sequence, it is highly unlikely that 

more than one record in a particular block would be created before 

a record from a completely different part of the file causes the buffer 
to be overwritten. 


The position in which the particular record is to be created is de- 
termined by the value of a "key". This value specifies a record 
number, relative to the first record position in the file, of the 
record to be created. For example, if the value of the key is 6, then 
to determine where that record will be written, multiply the record 
length by 6, and add the result to the base address of the file (this 
is done automatically by the MCP), giving the address of the record 
number 6. 


File Accessing Methods 


B 1700 RPG files may be accessed in three ways: sequential, direct, or 
indexed-sequential. The manner in which a file is accessed need not 
have any bearing on the way in which the file was created (organized), 
Once the file has been created the user need not be concerned as to 

the type of file organization. 


File accessing methods for the B 1700 are discussed in the following 
paragraphs. 


Sequential 
A file created either sequential or direct may be accessed sequentially. 


Sequentially accessing a sequentially organized file will simply access 
the records in the order in which they were created, that is, one after 
the other. 


Sequentially accessing a randomly organized file will access the records 
one after the other, regardless of whether the record had ever been 
created or not, provided the disk space for that area has already been 
assigned. That is, records which have never been created will be ac— 
cessed, and whatever information happens to be in that record area, 

from the previous time that space was used, will be read as the record 
contents. 


Direct 
A file created either sequential or direct may be accessed randomly. 


Direct accessing of a sequentially organized file will access the 
records as specified by the value of the key, regardless of the fact 
that the records were not created that way. The current End-of-File 
pointer (which points to the last sequential record created) is the 
maximum permissable value of the key. 


Attempting to access a record with a key value greater than the End- 
of-File pointer will result in a run-time error. 


Direct accessing of a randomly organized file will access the records 
as specified by the value of the key. Records which have never been 
created can be accessed, and whatever information happens to be in 
that record area from the previous time that space was used, will be 
read as the record contents (see figure 473). 
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Figure 4-3. Random Processing of a Direct File 
Indexed-Sequential 


An indexed-sequential file is a file whose records are accessed through 
the use of a core index, Each record contains a data key whose length 
and location have been assigned by the user (columns 297-39 and 357-38). 
The core index is a table in memory which contains entries from the key 
fields of the data file on disk. The use of the core index significantly 
reduces the time necessary to process an indexed file because it allows 

a more direct access to the specific record required. The program must 
search only a portion of the file instead of all entries in the file 
preceding the required record. (For more information see CORE INDEX in 
this section and figure 47-8). . 


An indexed file may be loaded in ascending key sequence or unordered, 
If unordered, a U must be placed in column 66 of the File Specifica- 
tions. Files loaded unordered will be sorted in sequence according 
to the key field prior to End-of-Job. 


Additional I Areas 


The use of additional I/O areas (additional buffers) for a file increases 
the efficiency of the program when it is executed; however, it also in- 
creases the size of the program. A good balance between increased 
efficiency and increased size must be reached in order to achieve the 
greatest throughput from the system when programs are run in a multi- 
programming environment. 


Additional I/O areas cannot be used with table, combined, display, or 
demand files, nor with indexed accessing of disk files. 


33°34 OVERFLOW INDICATOR 


This field applies only to files assigned to the printer, and is used 
to specify the overflow indicator used to condition records being 
printed in the file. Each printer file must have a unique overflow 
indicator assigned to it, if overflow printing (i.e., the printing of 
special lines when the overflow line is reached) is desired for that 
file. Acceptable entries for this field are: 


Entry ss Definition 


OA-OG, OV Specified indicator is 
used to condition records 
in the file. 


Blank Default to OF or OV acm 
cording to entry in 
columns 40-46 (DEVICE). 


If this field is left blank for any printer file, except PRINTR2 and 
PRINTUF, OF will be assigned (by default) as the overflow indicator. 
If this field is left blank for a PRINTR2 or PRINTUF file, OV will be 
assigned (by default) as the overflow indicator. 


If this field is left blank and the appropriate indicator (OF or OV) 
is not used to condition output, then no overflow indicator will be 
assigned to the file. Overflow will be handled automatically by the 
RPG object program, 


If this field specifies an overflow indicator but no output is condi- 
tioned on that indicator, overflow will not be handled automatically; 
a continuous listing will be produced, 


Specific lines on output will. be printed when an overflow condition is 
reached if the overflow indicators, whether specified or assigned by 
default (OV or OF), are used to condition them on output. 


35-38 KEY FIELD STARTING LOCATION 


This field applies only to indexed files and specifies the character 
position within each record where the key field begins. A1l key 
fields in the file must occupy the same position in each record, 

The entry must be numeric, and right-justified. Leading zeros 

may be omitted. The RECORD ADDRESS FIELD LENGTH (column 297-30) 
added to the KEY FIELD STARTING LOCATION must not exceed the 

record length. 


39 EXTENSION CODE 


This field applies to printer output files and table or pre~execution- 
time arrays. It indicates whether the file is further described on the 
Extension Specifications (table or array input files) or Line Counter 
Specifications (printer files) form, Valid entries for this field are: 


Definition 


An Extension Specification must 
further describe the file. This 
entry is only allowed for input 
table files. 


A Line Counter Specification must 
further describe the file. This 

entry is only allowed for printer 
files. | 


No Line Counter or Extension Speci- 
fications are required for this 
file; however, they may still occur. 


40-46 DEVICE 
This field is used to identify the input/output device to which the file 


will be assigned. All entries must be left-justified. Valid entries 
for this field are: 


Definition 


READER 
MFCU1 


MFCU2 
PUNCH 


PRINTER or 
PRINTR2 


TAPE 
DISK 
CONSOLE* 
BSCA 
DATACOM 


*Only one CONSOLE file may be specified and must be 
specified as a display file (see DSPLY in Section 9). 


80-column card reader, 


96-column MFCU — primary hopper. 


96-column MFCU - secondary hopper. 


80-column card punch, 


Line printer. (A maximum of 5 printer 
files may be specified). 


Magnetic tape, 
Disk file. 


Console printer. 


Telecommunications file. 


Telecommunications file. 


Any card device name (i.e,, READER, PUNCH, MFCUI1, etc.) is considered 
only to denote a card file. The actual type (input, output, combined) 
is determined by the entry in column 15 of the File Specifications. 
Table 4-4 lists the devices available for each of the file types. 


Table 4-4, Device Assignment for Files 


Devices 


MFCU1 or MFCU2 
READER 


DISK 
TAPE 


File 
Primary or Secondary 
Input Files 


MFCU1 or MFCU2 
READER 


DISK 
TAPE 


Demand Files 


Table Files MFCU1 or MFCU2 


READER 
DISK 
TAPE 


Chained Input 
Files 


Update Files 


Combined Files MFCU1 or MFCU2 


Output Files 


MFCU1 or MFCU2 
PUNCH 


DISK 
PRINTER, PRINTR2 


CONSOLE 


The B 1700 will also accept the following additional device names in 
columns 40746: 


Listing 


Display File Listing 


READO1 PUNCH20 
MFCM1 PUNCH42 
MFCM2 PRINTUF 
READ20 PRINTLF 
READ40 DISK11 
READ42 DISK11F 
CRP | DISK45 
CRP20 SPO 
DATA96 


Figures 4-4 through 4-7 are File Description Specifications coding ex~ 
amples for MFCU, console, printer, and tape files. 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT 
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Device Coding Example - Console Files (SPO) 


Figure 4-5, 
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FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT 
SEQUENCE 


RECORD ADDRESS TYPE 


FILE ORGANIZATION TYPE 


RECORD ADDRESS ~ 


wi 
= 
uw 
u 
9 
a 
Z 
w 


Zz 
= 
a 
< 
2 
oS 
wn 
w 
a 
w 
- 
me 


OVERFLOW INDICATOR 


FIELD LENGTH _ 


PROCESSING MODE 


N 
XN 


re 
a 
a 
w 
a 
< 
zr 


N 


THT 
N : 


EXTENSION CODE 


NOLLV901 
ONILYVILS 
qaiaida Aad 


Ww 
a 
> 
ke 
iw 
a 
ri 


FORM TYPE 


GI4012 


Device Coding Example - Printer Files 


Figure 4-6. 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT 
SEQUENCE 
END OF FILE 
FILE DESIGNATION 
FILE TYPE 


FILE ORGANIZATION TYPE 


RECORD ADDRESS TYPE 
RECORD ADDRESS ~ 


AW 


LABELS ~ FI 


N 


N 


TT TAQ 
AN 


Ww 
Q 
f°) 
oO 
Zz 
2 
” 
Zz 
us 
be 
x 
Ww 


NOILV901 
ONILYVLS 
Q13l4a Ada 


OVERFLOW INDICATOR 


app wey es 


FIELD LENGTH | 


PROCESSING MODE 
LENGTH | LENGTH 


pa a 
ol a OS He OD 


pe 
po ee 
ee ee oe 
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Device Coding Example - Tape Files 


Figure 4-7. 
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33 


DATACOM 


If communication with a remote device is desired, the entry DATACOM or 
BSCA is used.. The DATACOM file can be an input, output, or combined 
file. If DATACOM or BSCA is specified, a Telecommunications Card must 
be declared preceding the Input Specifications (see Section 7). 


DATACOM files are used to reference NDL (Network Definition Language) 
files in the Network Control. The filename used in columns 77-14 must 
be the same as the NDL file it is referencing or the names should be 
file equated with a FILE statement. For information on the NDL Language 


refer to the B_1700 Systems Network Definition Language, Form No. 
1073715. For information on the FILE statement, see the B 1700 System 
Software Operational Guide, Form No. 1068731. 

LABELS 


Any entry is allowed here. Only entries meaningful to the B 1700 will 
be used. Meaningful entries are: 


Definition 


File is unlabelled. 


Special forms, 


Forces backup. 


Indicates the B 1700 
Standard Label. 


The B 1700 Standard Label consists of one 80 character record, formatted 
as follows: 


Position Field Description 
blank 
2- 8 "LABEL " 
9 zero 
10-16 "multi-file-id" or zeros 
17 Zeros 
18-24 "file-id" 
25-27 reel number within a tape file 
28732 date written (creation date, YYDDD) 
33734 cycle 
35-39 purge date (YYDDD) 
40 sentinel 
41-45 block count 
46-52 record count 
53 memory dump key 
54-58 serial number 
59-63 creating system 
64-66 binary buffer size 
67-69 binary record size 
70-80 reserved 


60-65 CORE INDEX 


This field is used only by files accessed using the CHAIN operator (i.e., 
indexed-sequential files) to specify the number of bytes of memory to 

be set aside for indexes.: The entry must be right-justified, and 
leading zeros may be omitted. The maximum size that may be entered 

is 9999, 


At Beginning-of-Job, the core index is built in memory to speed the 
access time to process the file. The number of keys contained in 
memory is determined by taking the key length as specified in columns 
29-30 and dividing it into the core index as specified in positions 
60-65. The program then looks at the End-of-File pointer contained in 
the File Information Block to determine the total size of the file. 
The program divides the file into even partitions for the allowable 
number of keys in memory, and reads every nth record filling the core 
table in memory with just the data key fields. If no entry is made, 
a minimum (default) number of 10 of these keys (20 keys if the keys 
are in packed form) is automatically specified. 


Once the core index is built, the program will begin processing, As 

an access occurs, the code emitted will do a binary search of the core 
index to determine in which partition the record should be found. It 
calculates the lowest actual address and one greater than the highest 
to be used as the area to be searched for the record. At this point 
two techniques are possible. The program will always activate the disk 
SCAN operator first, then will revert to a binary search technique when 


necessary (see figure 4-8). 
a 
2 
Entry 
4 
Entry 
6 
Entry 
7 
Entry 
8 


Se | 

; Record 55 
Entry 
Record 58 
Entry Record 59 
10 

File on Disk 

(60 Records) 


Record 56 
Record 57 
Record 60 
Core Index : 
in Memory Indexed~Sequential 


Figure 4-8. Core Index Selection of Data Keys 


66 


Several considerations should be made in space/time trade-offs when 
processing indexed-sequential files. The core index should reflect 
the size of the data file to be accessed and the number of accesses to 
be performed, When a significant number of accesses are to be per- 
formed, the core index should be as large as practical; however, the 
core index should be moderate~to-small if only a few accesses are de- 
sired, When input is in sequential order, many disk accesses could 

be avoided, especially in the case of the binary search technique, 
when a large blocking factor is used. 


FILE ADDITION/UNORDERED 


This field applies only to sequential disk and indexed disk files and 
indicates: 


a. New records are to be added to an existing file; or 
b. Unordered records are to be loaded into an output file. 


Valid entries for this field are listed below: 


Definition 


Records are to be added 
to the file. 


Records are to be loaded 
for an indexed file in 
unordered sequence, 


Output file (must be 
ordered). 


Records may be added to an input file. Records added to a sequential 
or indexed file are added at the end of the file. After all records 
have been added to an indexed file, the file is sorted so that the 
records are in ascending order. Records added to an indexed file need 
not be in ascending order, 


An A entry in this field is required if there is an ADD entry in 
columns 16-18 of the Output~-Format Specifications record description 
for the file. If A is in this entry for any file other than an update 
file, all output records must have ADD specified on the Output Speci- 
fications (columns 16-18). However, Output Specifications are optional. 


Columns 15 and 66 coding options are discussed in the following para- 
graphs, . 


If column 15 contains a O and column 66 is blank, the records are 


loaded in ascending key 


If column 15 contains a 
are loaded in unordered 


If column 15 contains a 


sequence to an indexed file. 


O and column 66 contains a U, the records 
key sequence to an indexed file, 


O and column 66 contains an A, the records 


are added to an existing indexed file. An ADD entry is required 
in columns 16-18 of the Output Specifications. 
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If column 15 contains an I and column 66 is blank, records of an 
indexed file are read without adding new records or updating 
records, 


If column 15 contains an I and column 66 contains an A, records 
of an indexed file are read and new records are added to the file 
that are not presently there. No updating is performed. An ADD 
entry is required in columns 16718 of the Output Specifications. 


If column 15 contains a U and column 66 is blank, records of an 
indexed file are updated without adding new records. 


If column 15 contains a U and Column 66 contains an A, records of 
an indexed file are updated and new records are added to the file. 
An ADD entry is required in columns 167-18 of the Output Specifica- 
tions. 


Figures 4-9 through 4-12 illustrate coding methods for disk files on 
the File Description Specifications. 


TAPE REWIND 


This field specifies the action to be taken during closing of the file, 
and includes the provision for rewind and/or lock for tape reels, where 
desired. Valid entries are: 


Definition 


Close with purge. 

Close with unload (lock). 
Close with no rewind. 
Close with release, 


Close with remove. 


To show the effects of the various options, each type of file is dis- 
cussed separately in the paragraphs that follow. 


Card Input 


All options are ignored. The input areas are released and the unit is 
returned to the MCP, 


Card Output 


All options are ignored. The output areas are released, the trailer 
label is punched, and the unit is returned to the MCP, 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT NOT | 
RECORD ADDRESS TYPE FILE eo 
SEQUENCE — | FILE ORGANIZATION TYPE . 
RECORD ADDRESS "| [re auenecan INDICATOR TAPE REWIND | 
FIELD LENGTH 
PROCESSING MODE 


END OF FILE 
FILE DESIGNATION 
FILE TYPE 


NOT USED 
EXTENSION CODE LABELS 4 FILE ADDITION/UNORDERED 


FORM TYPE 


all 7” ast 
seavenriat [oP] DSRETL | ad TTT Tk SET NUN AN COT 
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INDEXED | orDERED [9/41 [Fin}y Pol | | A | ttt A Se AAA 
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Figure 4-9. Processing Methods of Disk Files - Loading 
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Figure 4-10. Processing Methods of Disk Files - ADD Records Only 


CHAIN — INDEXED 


NO ADD 


ADD 


CHAIN - DIRECT 


Gi40i7 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT NOT USED 
FILE CONDITION 
TAPE REWIND 


NOT USED 


RECORD ADDRESS TYPE 


RECORD ADDRESS 
FIELD LENGTH 


PROCESSING MODE 


FILE ORGANIZATION TYPE 
OVERFLOW INDICATOR 


END OF FILE 
FILE DESIGNATION 
- FILE TYPE 


EXTENSION CODE LABELS 4 FILE ADDITION/UNORDERED 


FORM TYPE 


op PURE tie TH pL eT pot TTT aR NNN ATT 
eeLepiuber be Te net gel CGE ETT Hoiesxl NEE CTRT 
PRE TTOE ETANAA 
Pb bi feria cel Ve hip iol Te TTT nisi TWENTE 
PEL BKR Vide fed ep CTE mie CARAT BRA 
eo ELT LEE EL ELENA ANNAN 
TPE WN AAA 

CCC CCE COASTER 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT NOT USED 
RECORD ADORESS TYPE 
SSOUENEE FILE ORGANIZATION TYPE 
END OF FILE RECORD ADDRESS OVERFLOW INDICATOR TAPE REWIND 
FILE DESIGNATION FIELD LENGTH NOT USED 
FORM TYPE FILE TYPE PROCESSING MODE EXTENSION CODE LABELS ~+ FILE ADDITION/UNORDERED 


NOT NOT 
DEVICE USED USED CORE INDEX 
3340 72473 74 


SSE AMA NNNACUCANNACMEANREY RED 
OLEH AANA BENNNSEENK 
ETT TTT NAN AAO TT EN 
MRRARRA ACCC CEANC ACARI 
Hee ae 


KEY FIELD 
STARTING 
LOCATION 


wo 
Qo 


7s We 
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Figure 4-11. Processing Methods of Disk Files - By CHAIN 


FILE DESCRIPTION SPECIFICATIONS 


FILENAME i a DEVICE CORE INDEX zi ji 

oR] Te EMA i 38 ah eal 46 WN NY ai THAN 66 ANE 71 72473 74 

ols] FFI ISLA | | il Ree LNA IA 4 A nN | tt 
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. Figure 4-12, Processing Methods of Disk Files ~ Sequential 

Tape Input 


The effects of the various options for tape input are: 
Effect 


Releases the input areas, 
rewinds the tape, and the 
MCP marks the unit "not ready". 


Same as "blank", except the tape 
is not rewound, 


Releases the input areas, re- 
winds and returns the unit to 
the MCP, 


Tape Output 
The effects of the various options for tape output are: 
Effect 


Releases the output areas, writes 
the trailer label, rewinds the 
tape, and overwrites the label, 
thus making the tape a’ scratch 
tape. 


Releases the output areas, 
writes the trailer label, rewinds 


the tape, and the MCP marks the 
unit "not ready". 


Same as "blank", except the tape 
is not rewound, 


Releases the output areas, writes 
the trailer label, rewinds the 
tape and returns the unit to the 
MCP. 
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Printer Output 


All options are ignored. A page is ejected, a trailer label is written, 
and the printer is returned to the MCP. 


Disk Files 


The effects of the various options assigned to disk are described in 
terms of "old files" and "new files''. An old file is one that already 
exists on disk and appears in the MCP Disk Directory. A new file is 
one created by the program, and does not appear in the Directory. A 
new file may only be referenced by the program which creates it, 


Effect 


An old file is removed from 
the disk and deleted from the 
Directory, or a new file is 
removed from disk. 


For an old file, the file re- 
mains in the Directory and is 
made available. A new file is 
entered in the Directory (there- 
by making it an old file) and 
made available. 


Use of this option is not 
permitted with disk files. 


Same as for U. 


An old file is removed from the 
disk and deleted from the Di- 
rectory. The new file is 
entered in the Directory and 
made available. 


71-72 FILE CONDITION 


This field applies to input (excluding table input files), update, 
output, and combined files, and indicates whether or not the file is 
conditioned by an external indicator. The entry indicates (at execu- 
tion time) whether or not the file is to be used by the program. If 
a file is conditioned by an external indicator, the file is used only 
when that indicator is ON. When the indicator is OFF, the file is 
treated as though End-of-File had been reached, and no records may be 
read or written into the file. Valid entries for this field are: 


Definition 
The specified external indicator} 
is used to condition the file. 


The file is not conditioned by 
an external indicator. 


75780 


The user is required to set the external indicators at the beginning of 
program execution. The indicators are entered on the console and once 
set they cannot be modified. 


External indicators (U1-U8) may be used to condition files. For ex- 
ample, a single program may have two uses. On some occasions, two 
files may be required to be read (or written); on others, only one file 
may be required to be read (or written). The optional file can be con- 
ditioned by an external indicator, 


If a file is conditioned in this way, records written to the output 
file may also be conditioned by the same indicator on Output Specifi- 
cations. If an output file is conditioned by an external indicator, 
every output record described on the Output-Format Specifications for 
that file should be conditioned by the same external indicator, other- 
wise the object program will still build the output record and perform 
blank after operations but suppress the write operation. A calculation 
operation which should not be done when the file is not in use (es- 
pecially CHAIN and READ operations) may also be conditioned by the same 
indicator, otherwise the object program will automatically condition 
the CHAIN or READ on the same external indicator. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


The following figures are RPG coding examples for indexed and direct files. 
Figure 4-13 illustrates the updating of an existing file; figure 4-14 illus- 
trates the creation of a new file. 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT NOT USED 
RECORD ADDRESS TYPE FILE CONDITION 
SEQUENFE FILE ORGANIZATION TYPE \e 
END OF FILE RECORD ADDRESS TAPE REWIND - 
FILE DESIGNATION FIELD LENGTH NOT USED 


‘ OVERFLOW INDICATOR 


FORM TYPE FILE TYPE PROCESSING MODE 


EXTENSION CODE LABELS -y FILE ADDITION/UNORDERED 


DEVICE 


KEY FIELD 
STARTING 
LOCATION 
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12 INPUT SPECIFICATIONS PROGRAM 
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NUMBER RECORD IDENTIFYING INDICATOR PACKED MATCHING FIELDS OR CHAINING FIELDS 


FORM TYPE SEQUENCE STACKER SELECT DECIMAL POSITIONS4 CONTROL LEVEL: 
RECORD IDENTIFICATION Cobes 


FIELO NAME 
(VARIABLE 


NOT (N) 
{= CHARACTER 
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12 CALCULATION SPECIFICA’ IONS PROGRAM 
Resulting 


15 80 
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Figure 4-13. Indexed and Direct Files ~- File Update 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT NOT USED 
Seau RECORD ADDRESS TYPE NDITION 
ENCE FILE ORGANIZATION TYPE Bite oe = 
END OF FILE RECORD ADDRESS OVERFLOW IDIGATOR TAPE REWIND 
FILE DESIGNATION FIELD LENGTH NOT USED 
FORM TYPE FILE TYPE PROCESSING MODE EXTENSION CODE LABELS 4 FILE ADDITION/UNORDERED 
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OPTION IDENTIFICATION 
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Figure 4-14. Indexed and Direct Files - File Creation 
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SECTION 5 


VECTORS AND EXTENSION SPECIFICATIONS 


VECTORS 


Vectors are tables and arrays which are logical configurations of data elements 
having similar characteristics. Each element of a vector must be of the same | 
length and data type (numeric or alphanumeric). If numeric, each element must 
have the same number of decimal positions. A maximum of 64 vectors is allowed. 


There is very little distinction made between tables and arrays. Where 
differences do arise in their characteristics, they will be referred to in- 
dividually as tables or arrays; otherwise they will both be referred to as 
vectors. The following are the only differences that arise between tables 
and arrays. These differences exist mainly for compatibility. 


a. Every vector to be used by the program must be given a name. All 
table names must begin with the letters TAB, whereas array names 
may begin with any alphabetic character. 


b. Both tables and arrays may use indices to access specific elements 
within them. If, however, a table name appears without an index 
assigned, it refers to the last item referenced in the table. If 
an array name appears without an index assigned, it refers to the 
entire array. Such a reference specifies that the designated 
operation be performed repetitively on each element of the array. 


Vectors can be distinguished according to the time they are loaded with data, 
which may occur at three distinct times: during compilation, at the beginning 
of program execution, or during program execution. Data elements in a vector 
may, however, be altered at any time during program execution, regardless of 
the time the vector was loaded, 


COMPILE-TIME VECTORS 


For a compile-time vector load, the data to be loaded is read into the program 
storage area reserved by the entries in the Extension Specifications at the 
same time that the source program is compiled. Physically, the data is placed 
in a card file called "RPG/VECTOR", which immediately follows the source deck 
(see figure 5-4). 


For a compile-time vector load, short vectors (those which are only partially 
full) are not allowed. Each vector file must occur in the order in which it 
was specified, and must contain exactly the number of records necessary to 
fill it with data. No separators are used to delimit the end of one vector 
file and the beginning of the next; the compiler reads input records until 
one vector is full, and then proceeds to fill the next one in order. 


PRE~EXECUTION~TIME VECTORS 


For a pre~execution-time vector load, the data to be loaded is read into the 
program storage area reserved by the entries in the Extension Specifications 

at the beginning of object program execution, before the normal operations in 
the program cycle begin. The data for each vector is placed in a file, identi- 
fied by the names assigned in the File Description Specifications. 


More than one vector may be loaded from the same file. Short vectors are not 
allowed with pre-execution-~time vector loads. 


DYNAMIC/EXECUTION-TIME VECTORS 


Dynamic vectors are loaded during program execution through entries in the 
Input Specifications or Calculation Specifications. Certain fields of input 
records or the results of calculation operations may be used to load the ele- 
ments of a dynamic vector. Such loading, unlike the automatic loading of 
compile-time and pre-execution~time vectors, is completely under programmatic 
control. 


All vectors are able to be altered during program execution, regardless of 
when they were loaded initially. : Because of this, all vectors may be con- 
sidered to have "dynamic" characteristics. 


EXTENSION SPECIFICATIONS 


All vectors in a program must be described on the Extension Specifications 
sheet. Certain entries are required for all types of vectors, regardless of 
the time at which they will be loaded (see figure 5-1). Columns 277-45 must 
be completed for each vector (columns 467-57 if the vector is loaded in 
alternating format with another vector). These columns specify the name 
assigned to identify the vector (VECTOR NAME), the number of vector elements 
occurring in each input record (ENTRIES PER RECORD), the size of the vector 
(ENTRIES PER TABLE OR ARRAY and LENGTH OF ENTRY), whether the input data is 
in packed decimal format (PACKED), the number of decimal positions in each 
entry (DECIMAL POSITIONS), and the order in which the elements are sequenced 
(SEQUENCE). 
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Figure S-1l. Entries Necessary to Describe a Vector 


Additional entries are required if the vector is to be loaded at execution 
time (FROM FILENAME), or if the vector is to be written to an output file at 
End-of-Job (TO FILENAME). Any files named in these fields must also be de- 
scribed on the File Description Specifications. 


For dynamic vectors, the ENTRIES PER RECORD, FROM FILENAME, and TO FILENAME 
fields must be left blank (dynamic vectors cannot be output at EOJ). Also, 
a second vector in alternating format (columns 467-57) cannot be declared, 


FIELD DEFINITIONS 


Figure 5-2 can be used in conjunction with the following field definitions 
for the Extension Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
37-5 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 

An E must appear in this field. 
11-18 FROM FILENAME 


This field is used to name a vector file and must contain the FILENAME . 
of every pre-~execution-time vector to be used by the program. The 

file must have been specified on the File Description Specifications as 
an input table file. If the vector is loaded at compile time or via 
Input or Calculation Specifications during execution, this field must 
be left blank. 


Filenames must always be entered in this field left~justified. When 
a vector is loaded at compile time, it becomes a permanent part of 
the program so. that a vector file deck is not needed when the program 
is executed. Only those vectors that do not change often should be 
compiled with the program, When vectors are being compiled with the 
program, the vector file deck must follow the source program deck 
(see figure 5-4). 


19-26 TO FILENAME 


If it is desirable to write or punch out any vector file, the filename 
of the proper output file must be entered in this field. The desig- 
nated output file must have been previously described on the File 
Description Specifications form as a sequential output file. A vector 
can be written to only one output device, and is automatically written 
oc punched at End-of-Job after all other records have been processed. 
More than one vector may be written to the same output file but it is 
the users responsibility to ensure that this is a meaningful thing to 
do. Filenames must always be entered in this field left-justified. 
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11-18 Contains the name of a pre-execution F, 40-42 Specifies the length (in bytes) of 
time vector file. each element in the vector. Maximum num- 
19-26 Contains the name of the file to eric entry is 31, maximum alphanumeric entry 
which vector will be outputted. If blank, is 5ll, right~justified. 

vector not to be output at EOJ. G. 43 Specifies if the external vector elements 
27-32 Contains the name of the input table aa ai eae “a eee decimal format. 

or array. Entries: TABXXX (X=any alphanumeric PEELE S: a ee 8 


character) or 1-6 alphanumeric characters. H. 44 Specifies the number of decimal positions 
Also used to name the first of two alternating contained in each element. Entries: Blank 

vectors. or 0-9. 

33-35 Specifies the exact number of entries I. 45 Specifies the sequence in which elements 


contained in each vector input record. will be loaded for the first vector. 


36-39 Specifies the maximum number of items Entries: Blank, A or D. 

contained in the first vector named, Entry J. 46-57 These columns are used to describe 

maximum: 4095, right-justified. the second of two alternating vectors. 
Entries are of the same type as specified 
for the first vector. The second vector 
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is loaded in alternating format with the first. 


Figure 5-2. Extension Specifications Summary Sheet 


27732 


33735 


VECTOR NAME 


This field is used to name tables and arrays to be used by the program. 
Each vector name must be unique, and must follow the rules for the for- 
mation of vector names as described in Section 2. Table names must 
begin with the letters TAB (note that is includes the name TAB itself); 
any name appearing in this field which does not begin with TAB is con- 
Sidered an array name. 


Vector files are processed in the same order in which they appear on 
the Extension Specifications form, Thus, if more than one vector file 
is specified for the program, the files must be loaded in the same 
order in which they appear on the form. 


If two related vectors are in alternating form within one vector file, 
the first vector must be named in columns 27-32, and the second vector 
must be named in columns 467-51, Any combination of vector types 
(table or array) is allowed in alternating format. (For more infor- 
mation, see columns 46-57 in this section.) 


ENTRIES PER RECORD 


This field must contain a blank or a non-zero integer and specify the 
exact number of entries contained in each vector input record. Every 
record, except the last one, must contain the same number of entries 
as specified in field; the last record may contain fewer entries than 
specified. Entries in this field must be right-justified; leading 
zeros may be omitted. Corresponding items from related (alternating) 
vectors must be on the same record, and in alternating format. Each 
pair of items is considered one entry. (For more information, see 
columns 46757 in this section.) 


If ENTRIES PER RECORD are specified in alternating format, the entry 
must satisfy certain conditions. The following formula may be used 
to determine if the entry satisfies these conditions: 


Ll = Length entered in columns 40-42 
unless vector 1 is packed, when Li=l1 + 
(length in columns 40742) /2; 


L2 = Length of any alternate vector as 
entered in columns 527-54 unless 
packed, when L2=1 + (length in 
columns 52-54) /2; 


N = Number of entries per record; 
Rl = The record length of any TO file; 


R2 = The record length of the FROM file, 
if a FROM file is specified, else 96; 


Rl > (L1 + L2) x N 
R2 > (L1 + L2) x N 


The FROM FILENAME and ENTRIES PER RECORD entries are used to determine 
the type of vector and therefore how it will be loaded. (For more in- 
formation see VECTOR LOADING in this section.) Table 5-1 is a guide 
for determining vector type. 


36-39 


40-42 


43 


Vector Type 


Compile~Time 
Pre-Execution Time 
Dynamic/Execution Time 


Table 5-1. Guide for Determining Vector Type 


FROM FILENAME ENTRIES PER RECORD 


ENTRIES PER VECTOR 


This field is used to specify the maximum number of elements that can be 
contained in the vector named in the first VECTOR NAME field (columns 
27-32). A maximum of 4095 elements per vector is allowed. For vectors 
to be loaded in alternating format, this number also applies to the one 
named in the second VECTOR NAME field (columns 46-51). Entries in 

this field must be right-justified; leading zeros may be omitted. 


LENGTH OF ENTRY 


This field is used to specify the length (in bytes) of each element in 
the vector named in the first VECTOR NAME field (columns 27-32). For 
numeric vectors in packed decimal format, enter the number of digits. 
Entries in this field must be right-justified; leading zeros may be 
omitted. 


Numeric items in the vector input records must have leading zeros 
added if their length is less than that specified; alphanumeric entries 
must have either leading or trailing blanks. 


The maximum length of a numeric vector element is 31 characters; the 
maximum for an alphanumeric vector element is 511 characters. How- 
ever, an element must be completely contained on one record; therefore, 
input record sizes will also limit the maximum element sizes. 


PACKED 


This field specifies the external format of the vector elements. Acn 
ceptable entries are; 


Definition 


Vector elements are in 
either unpacked decimal 
or alphanumeric format. 


‘Vector elements must be 
in packed decimal format. 


Any vector (including compile-time vectors) may be packed and may 
be either right or left signed (as specified in the Control Card or 
by the dollar option RSIGN). 


44 DECIMAL POSITIONS 


This field is used to specify the number of decimal positions contained 
in each element of the vector named in the first VECTOR NAME field 
(columns 27-32). This field must not be blank for a numeric vector or 
if column 43 contains P; if the elements have no decimal positions, a 
zero must be entered, 


The acceptable entries for this field are: 


Definition 


Number of positions to the 
right of the implied deci- 


mal point for numeric 
vector elements. 


Alphanumeric vector. 


45 SEQUENCE 


This field is used to specify the sequence in which elements will be 
loaded for the vector named in the first VECTOR NAME field (columns 
27-32). A sequence error during a compile time vector load will not 
be detected; however, it can cause an error or "not found" condition 
during program execution. <A vector loaded at pre-execution time is 
checked for the specified sequence. A sequence error causes the 
program to be discontinued, Note that the sequence check does allow 
two consecutive elements to be equal. This column must contain an 
entry if high or low LOKUP is to be used. Alternate vectors need not 
have the same sequence, 


Valid entries for this field are: 
Definition 


Unordered elements. 


Elements arranged in 
ascending order. 


Elements arranged in 
descending order. 


46-57 VECTOR NAME, LENGTH OF ENTRY, PACKED, DECIMAL POSITIONS, SEQUENCE 


These fields are used only when describing a second vector which is 
loaded in alternating format with the vector named in the first VECTOR 
NAME field (columns 277-32). All of these fields require the same type 
of entries as the corresponding fields in columns 27-45, but entries 
in columns 467-57 apply only to the second vector. For a single vector 
description, or dynamic/execution time vector, these fields must be 
left blank. 


Vectors specified as occurring in alternating format have related 
elements contained in alternating format on each input record (see 
figure 5-3). The two vectors need not be of the same size (LENGTH OF 
ENTRY), type (numeric or! alphanumeric), or sequence order, but they 
must have the same number of elements contained on each input record, 
and each vector must contain the same number of elements (NUMBER OF 
ENTRIES PER TABLE OR ARRAY). Each pair of elements on the input record 
is considered one entry. The first element of each pair belongs to 

the vector described in columns 27-45; the second element belongs to 
the vector described in columns 46-57, 
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Figure 573. Vectors in Alternating Format 


58-74 COMMENTS 


This field is available os inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


75-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 
VECTOR LOADING 
How a vector will be loaded depends on the entries made on the Extension 


Specifications. The following paragraphs describe loading for compile time, 
pre-~execution time and dynamic/execution time vectors. 


COMPILE-TIME VECTOR LOAD 


To load a compile-time vector, all that is necessary is to include the data 


cards for the vector in the proper order in the file "RPG/VECTOR" (figure 5-4). 


The compiler will automatically read this file after the source program has 
been read, and will load the data into the vectors declared. 


VECTOR DATA CARDS 
?DATA RPG/ VECTOR 


SOURCE DECK 
? DATA RPG/CARD 
?COMPILE... 
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Figure 5-4. Setting Up a Data Deck For a Compile-Time Vector 


If more than one compile-time vector has been declared, care must be exercised 
in setting up the data deck. The compiler expects data for the vectors to be 
entered in the same order in which they were declared in the Extension Speci- 
fication form. The compiler reads data cards and stores the elements in the 


first vector until it is full, then proceeds to do the same for the second 


vector, and so forth. If more or fewer records are present than are necessary 


to exactly fill a vector, data will be placed into the wrong vector. See 
figure 5-5 for an example of a compile-time vector load declaration. 


80 
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Figure 5-5. Compile-Time Vector Load 


PRE-~EXECUTION TIME VECTOR LOAD 


To load a pre-execution time vector, the data to be loaded must be placed in 
the file described in the File Description Specifications to which the vector 
is assigned (FROM FILENAME). Data is read in at the beginning of program 
execution and placed in the vector until the vector is full. If more than one 
vector (not in alternating format) is assigned to a single file, some special 
considerations must be taken into account (see figure 5-6). Vectors are still 
loaded in the same order that they are specified in the Extension Specifica- 
tions, so that files will be opened, read, and closed as necessary to load 

the designated vectors. If two vectors are assigned to the same table file, 
and no other pre-execution time vector declaration comes between them, the 
data for both must be in the same card file. No separators are allowed be-~ 
tween the data decks, so that restrictions are imposed the same as those for 
compile-time vector loads. 
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Figure 5-6, Pre-Execution Time Vector Load 
DYNAMIC/EXECUTION TIME VECTOR LOAD 


To load a dynamic vector, the data elements may be obtained from fields within 
input records or from the result! of operations in the Calculation Specifications. 


Input Specifications Load 


Fields within input records may contain data for vector loading. This 
is done by assigning a vector name with an index or an array name 
without an index (a table name is not allowed) as a field name within 
an input record description (see figure 5-7). If FIELD NAME (VARIABLE 
NAME) designates a single element of the vector, the input field will 
be placed into the vector element when the record is selected. If 
FIELD NAME designates an entire array (no index assigned), the input 
field length must be an integral multiple of the element size (LENGTH 
OF ENTRY) and equal to or less than the total size of the array. If 
the input field is less than the size of the array, the elements not 
referenced will not be affected, 


Calculation Specifications Load 


Any operation which specifies a vector (with or without an index) as 

the RESULT FIELD will cause the designated vector element (or entire 

array, if no index is specified) to be loaded with the result of the 

operation. See figure 5-7 for an example of a load via the Calcula- 

tion Specifications. Refer to Section 9 for the operations which may 
be specified for vectors. 
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Figure 5-7. Dynamic Vector Load (Sheet 1 of 2) 
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Figure 5-7. Dynamic Vector Load (Sheet 2 of 2) 
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VEC U 


Compile-time and pre~execution time vectors may be written to an output device 
at End-of-Job by specifying an output file in the TO FILENAME field of the 
Extension Specifications. This vector output is performed automatically after 
all processing has heen completed. Vector records will be in the format 
specified by the Extension Specifications. 


Dynamic vectors cannot specify a TO FILENAME, and thus cannot be automatically 
written out at End-of~Job. 


Also, an entire array may be written during output time by specifying the array 
name without an index as field names (VARIABLE NAME) in the Output~Format 
Specifications. If an entire array is to be output in this way, the end po- 
Sition specified must allow sufficient space for all elements of the array, 
allowing for any editing. For editing of a whole array see Section 10. 
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SECTION 6 


LINE COUNTER SPECIFICATIONS 


Line Counter Specifications are optional and are used only for printer files 
to indicate form length, the position of the last line to be printed on each 
page, and the format of the carriage control tape. If Line Counter Specifica- 
tions are absent for a printer file, a form length of 66 lines (11 inches 

long at 6 lines per inch) and an overflow line of 60 (one inch from bottom 

of form at 6 lines per inch) are assumed. 


FIELD DEFINITIONS 
Figure 67-1 can be used in conjunction with the following field definitions 
for Line Counter Specifications, 
1-2 PAGE 
Refer to Section 2 for a complete description. 
375 LINE 
Refer to Section 2 for a complete description. 
6 FORM TYPE 
This field must contain the letter L. 
7-14 FILENAME 


This field is used to specify the name of the printer file to which 
these Line Counter Specifications apply. The filename must also be 
described on the File Description Specifications and must be assigned 
to a printer. The entry in this field must be left~justified and must 
not be left blank. 


15-19 LINE NUMBER, FL OR CHANNEL NUMBER 


These fields have two possible meanings, depending upon the entry in 
columns 18-19. 


If columns 18719 contain the entry FL, the entry in columns 15-17 
specifies the length (in print lines) of each page. The LINE NUMBER 
field entry must be between one and 112, inclusive, and be right~ 
justified in the field, and leading zeros are optional (see figure 6-2). 


If columns 18-19 contain a numeric entry between one and 12, inclusive, 
the entry in columns 15-17 specifies the number of lines from the top 
of the form to be associated with the CHANNEL NUMBER entry designated 
in columns 18-19. The LINE NUMBER entry must be between one and 112, 
inclusive. Both entries must be right-justified in their respective 
fields, and leading zeros are optional (see figure 6-3). 


eee LINE COUNTER SPECIFICATIONS 
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3 y : 
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A. 7-14 Specifies the name of a printer file. 
B. 15-17 If 18-19 contains FL, this entry specifies 


the length of the page. If 18-19 are numeric, 
this entry specifies the number of lines from 
the top of the page to associate with that channel 


number... Entries: 17112, right~justified. 


C. 18-19 Designates the use of the numeric entry in 
columns 15-17. Entries: FL or 1-12, right-justified. 


D. 20-22 If 23-24 contains OL, this entry specifies 
the line number of the overflow line. If 23-24 
are numeric, this entry specifies the number of 
lines from the top of the page to associate with 
that channel number. Entries: 1-N, right~justified 
(N=entry in 15-17). 

E. 23-24 CHANNEL NUMBER associated with the overflow 
line designated in columns 20-22. Entries: OL or 
1-12, right-~justified. 

F. 25-74 CHANNEL NUMBER related to preceding LINE NUMBER 
entry. Entries: 1-12, right~justified LINE NUMBER 
designates a particular line on each page. 

Entries: 1-N, right-~justified (N-entry in 15-17 
or the default length 66). 
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Figure 6-1. Line Counter Specifications Summary Sheet 
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FILE DESCRIPTION SPECIFICATIONS 
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SEQUENCE 


FILE TYPE 


FILE DESIGNATION 


FORM TYPE 


FORM TYPE 


Overflow Coding Example 2 


Figure 67-3. 
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20-24 


25774 


LINE NUMBER, OL OR CHANNEL NUMBER 


These fields have two possible meanings, depending upon the entry in 
columns 23724, 


If columns 23-24 contain the entry OL, the entry in columns 20722 
specifies the line number that will be considered the overflow line. 
The overflow line must be less than or equal to the form length. When 
the destination of a space or skip operation is a line beyond the over- 
flow line but not beyond the form length the overflow indicator speci- 
fied for the file is turned ON to indicate that the end of the page is 
near, If the destination is beyond the form length the overflow in- 
dicator does not turn ON. When the overflow indicator is ON, the 
following actions will take place before the forms are advanced to 

the next page: 


a. Detail lines still to be printed as part of the current program 
cycle will be completed. 


b. Total lines will be printed, 


c. Total line conditioned by the overflow indicator for this file 
will be printed. 


Since all these actions will take place after the overflow line is 
reached, the programmer should be certain that enough space is left 
between the overflow line and the bottom of the page to allow all the 
lines to be printed (see figure 672). 


If either the form length or overflow line is specified then both must 
be specified. In the absence of both, a form length of 66 and an over- 
flow line of 60 are assumed (6 lines per inch). 


If columns 23-24 contain a numeric entry between one and 12, inclusive, 
the entry in columns 207-22 must specify the number of lines from the 
top of the form to be associated with the CHANNEL NUMBER entry (columns 
23-24). The LINE NUMBER field entry must be between one and 112, in- 
clusive. Both entries must be right-justified in their respective 
fields, and leading zeros are optional (see figure 673). 


LINE NUMBER AND CHANNEL NUMBER 


The rest of the form is divided into ten 5S-character fields, each con- 
sisting of a 3-character LINE NUMBER field and a 2-character CHANNEL 
NUMBER field. All fields are optional and must be left blank if they 
are not to be used (see figure 674). 


The CHANNEL NUMBER fields may contain a numeric entry between one and 
12, inclusive. This CHANNEL NUMBER entry is associated with the cor- 
responding LINE NUMBER field entry (between one and 112, inclusive) 

and is used to relate a channel number to a particular line on each 
page of the output forms. The same channel numbers must not be speci-~ 
fied more than once on the same Line Counter Specification. Channel 12 
and the overflow line must not both be specified. 


All entries must be right-justified in their respective fields. Lead- 
ing zeros are optional. 


LINE COUNTER SPECIFICATIONS 


FORM TYPE 
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LIST1 specifies channel 1 as Jiine 10 and channel 12 as line 50. 


LIST2 specifies the form length (50 lines) and channels 1 and 12. 


LIST3 specifies the form length (80 lines) and the overflow line 


(line 60). 


Line Counter Specifications Code Example 


Figure 674. 


75-80 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION / 
TELECOMMUNICATIONS CARD SPECIFICATIONS 


A Telecommunications Card is used when a DATACOM file(s) is specified on the 
File Description Specifications. DATACOM files are used to transmit and/or 
receive information contained in corresponding NDL files in the Network 
Controller, 


If used, DATACOM files should be a reflection of what is specified in the NDL 
files; therefore, before referencing a DATACOM file it is necessary to know 
the name of the corresponding NDL file and how it is specified. 


Due to the timing and other limitations of RPG, only one terminal may be as- 
Signed to a DATACOM file. Telecommunications in RPG is designed to function 
as a Slave rather than a master controller. 


Only three entries are necessary on a Telecommunications Card. AI1l1 other 
entries are used for documentation only and are syntactically checked. These 
unused areas, if coded, should reflect what is in the NDL file. (See 


B 1700 System Network Definition Language, Form No. 1073715.) 
There are no B 1700 RPG forms especially designed for coding DATACOM files. 


The Control Card Specifications are used here to illustrate coding positions 
on a Telecommunications Card. 


FIELD DEFINITIONS 


Figure 7-1 can be used in conjunction with the following field definitions for 
the Telecommunications Card. 


1-2 PAGE 
Refer to Section 2 for a complete description. 

375 LINE 
Refer to Section 2 for a complete description. 

6 FORM TYPE 
This field must contain a T, 

7-14 FILENAME 
This field contains the name of the DATACOM file specified on the File 
Description Specifications. It must be the same as the NDL filename 
it is referencing. 

15 CONFIGURATION 


This field is unused. Any entry other than blank, P, M, or S will be 
given a syntax error, 


7-1 


Burroughs B 1700 RPG 


PROGRAM ID PAGE OF 
PROGRAMMER DATE 


12 18 80 
pace | | | CONTROL CARD SPECIFICATIONS nicer (ele 
FORM TYPE 


Ae 6 Change entry to the letter T. 


B. 7-14 Contains the name of a DATACOM file entered 
on the File Description Specifications. 


C. 16 Specifies if the file is to be transmitted or 
received. Entries: T or R. 
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Figure 7-1, Telecommunications Card Specifications Summary Sheet 


16 TRANSMIT/RECEIVE 


Acceptable entries for this field are: 


Definition 


Transmit messages. 


Receive messages. 


If T is specified, messages will be transmitted from the DATACOM file 
to the corresponding NDL: file. The file must be an output or com- 
bined file and should appear on the Output~Format Specifications. 
Combined files must alternatingly transmit and receive. 


If R is specified, messages will be received from the NDL file into 
the DATACOM file. The file must be an input or combined file and 
should appear on the Input Specifications. Combined files must 
alternatingly receive and transmit. 


17 TYPE OF LINE CONTROL 


This field is unused. Any entry other than Blank or T will be given a 
syntax error, 


18 TRANSMISSION CODE 


This field is unused. Any entry other than A, U, E, or blank will be 
given a syntax error. 


19 


20 


21-31 


32 


33-39 


40 


41-47 


48-51 


52 


53-54 


95757 


98-59 


TRANSPARENCY 


This field is unused. Any entry other than Y, N, or blank will be 
given a syntax error. 


TYPE OF CONNECTION 


This field is unused. Any entry other than M, E, S, A, B, or blank 
will be given a syntax error. 


TELEPHONE NUMBER 

This field is unused. Any entry in this field will be accepteds how- 
ever, it should reflect the numeric, alphanumeric, or blank entry in 
the corresponding NDL file. 

LOCATION OF IDENTIFICATION-THIS STATION 


This field is unused. Any entry other than S, E, or blank will be 
given a syntax error. 


IDENTIFICATION-THIS STATION 


This field is unused and may contain any alphanumeric or blank entry. 
The entry should reflect the entry in the corresponding NDL file. 


LOCATION OF IDENTIFICATION-~REMOTE STATION 


This field is unused. Any entry other than S, E, or blank will be 
given a syntax error. 


IDENTIFICATION-REMOTE STATION 


This field is unused and may contain any alphanumeric or blank entry. 
The entry should reflect the entry in the corresponding NDL file. 


REMOTE TERMINAL 
This field is unused and should remain blank, 
ITB 


This field is unused. Any entry other than I or blank will be given 
a syntax error. 


PERMANENT ERROR INDICATOR 


This field is unused. Any entry other than 01-99, L1-L9, LR, H1-H9, 
blank will be given a syntax error. 


TIMEOUT VALUE 


This field is unused. Any entry other than a numeric or blank entry 
will be given a syntax error. 


RECORD AVAILABLE INDICATOR 


This field is unused. Any entry other than 01-99, L1“L9, LR, HI-H9, 
or blank will be given a syntax error. 


or 


60 


61-62 


63-63 


75-80 


LAST FILE 


This field is unused. Any entry other than L or blank will be given 
a syntax error. . 


TRANSMIT ADDRESS 


This field is unused and may contain any alphanumeric or blank entry. 
The entry should reflect the entry in the corresponding NDL file. 


RECEIVE ADDRESS 


This field is unused and may contain any alphanumeric or blank entry. 
The entry should reflect the entry in the corresponding NDL file. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 8 


INPUT SPECIFICATIONS 


Input Specifications describe the records within each file and fields within 
each record to be used as input data for the program. The two types of input 
specifications are: 


a. Record type descriptions (columns 7-42) which define the various 
input records and their relationship to other records in the file. 
Columns 43-70 must be blank. 


b. Field descriptions (columns 43-70) which define each field within the 
records. Columns 7-72 must be blank. 


Field description entries must start one line below the associated record type 
descriptions, or an error will occur. A warning is emitted if a record type 
description is not followed by a field description. Field and record de- 
scriptions must not be specified on the same line. 


FIELD DEFINITIONS 


Figure 8-1 can be used in conjunction with the following field definitions for 
the Input Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
375 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 

This field must contain the letter I. 
7-14 FILENAME 


This field is used to identify the file to which the subsequent record 
type and field descriptions belong. The file specified must have been 
previously described on the File Description Specifications form as an 
input, update, or combined file. Every input, update, or combined file 
(except input table files), described in the File Description Specifi- 
cations, must be described on the Input Specifications form. The FILE- 
NAME entry must be the same as the one used in the File Description 
Specifications. It must appear on the first line containing informa-~ 
tion about the records in the file; if the entry is left blank, the 
last filename entered is assumed to be the file being described. The 
first record type description must not have a blank FILENAME entry. 
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D. 


E. 


PROGRAM !D 


Burroughs 


B 1700 RPG 


PROGRAMMER 


pace | T | 


NUMBER 
SEQUENCE 


FORM ae 8 


C DEF 


7-14 Contains a filename specified 
in the File Description Specifica- 
tions. 


~$4-16--Puts ‘the: reecord- identification 


codes in an AND or OR relationship. 
Entries: AND or OR, 


15-16 Specifies if records are to be 
processed in a predetermined se- 
quence. Entries: 01-99 or any 
alphabetic character. 


17 If sequence is specified, the 
entry indicates the number of 
records of each type in a sequence 
group. Entries: 1 or N. 


records sequenced 
Entries: Blank 


18 Specifies if 
must be present. 
or QO. 


19-20 Contains either a record 
identifying indicator (01-99), a 
control level indicator (L1-L9), a 
halt indicator (H1-H9), or specifies 
look ahead records (**). 

21-41 Record Identification Codes: 
21-24, 28-31, 35-38 (specifies the 
position within the record that con~ 
tains a record identification code. 


Entries: Blank or 1-N where N = 
record length). 


25, 32, 39 (indicates if the charac- 
ter in columns 27, 34, or 41 is or is 
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Figure 8-1. 
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not present. Entries: Blank or N. 


26, 33, 40 (Specifies what part of 


the code character in columns 27, 34, 


-or- 41--is to-be-read. --Entries:---¢C-—~ 
the entire character, Z- the zone 
portion, D - the digit portion). 


27, 34, 41 (Contains the code char 
acter. Entries: Any EBCDIC char~- 
acter). 


42 Specifies which stacker will be 
used. Entries: Blank or 1-6. 


43 Specifies if numeric input is in 
packed or unpacked decimal format. 
Entries: Blank or P. 


44-47 Contains the left-most posi- 
tion of the input field. Entries: 
numeric, right-justified. 


48-51 Contains the right-most posi- 
tion of the input field. Entries: 
numeric, right~justified. 


52 Contains the number of decimal 
positions for numeric fields. 
Entries: Blank or 0-9. 


53-58 Contains field names (1-6 
alphanumeric characters, left- 
justified) or one of the special 
field names, PAGE, PAGE1, PAGE2, 
UDATE, UMONTH, UDAY, UYEAR, TABXXX 
(X=any alphanumeric character). 


(VARIABLE 
NAME) 
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FIELD RECORD RELATION 


NOT 
USED 


PLUS 
MINUS 


OP QRs 


59-60 Contains the control level 
indicator. Entries: Blank or L1-L9. 


61-62 Specifies sequence checking for 


. a-single.input—or..combined..flle..or 


sequence checking with matching 
records for two or more input and/or 
camhined files. Fntries: Blank or 
M1-M9. 


63-64 Contains one of the following 
field record relations indicators or 
blank: 01-99 (record identifying 
indicator), L1-L9 (control level in- 
dicator previously defined), MR 
(matching record indicator), U1-U8 
(external indicator), or HO-H9 (halt 
indicator). 


65-66 Used 
fied field 


to indicate if the speci-~ 
is greater than blank or 


positive. Entries: Blank, 01-99, 
HO-H9 e 

67-68 Used to indicate if the speci- 
fied field is less than blank or 
negative. Entries: Blank, 01-99, 
HO-H9 . 

69-70 Used to indicate if the speci-~ 


fied field is blank or zero. Entries: 


Blank, 1-99, HO-H9. 


Input Specifications Summary Sheet 


14-16 


AND/OR LINES 


There is no limit on the number of AND or OR lines that may be speci- 
fied; however, it is recommended that the user not exceed 20 if com- 
patibility with other Burroughs systems is desired. AND/OR lines 
must be preceded by a line containing at least one record identifica- 
tion code entry. 


A ine 


If it is necessary to specify more than three record identifying codes 
to identify a record type, an AND line may be used. The word AND 
should be entered in columns 14-16 and the additional record identify- 
ing codes should be entered in columns 21-41. There must be at least 
one record identification code entry on each AND line. 


OR Line 


In some cases, a particular record type may be identified by two or 
more different codes. For this condition, the word OR entered in 
columns 147-15 indicates that only one of the codes specified need be 
present to identify the record type (see figure 8-2). Record identi-~ 
fication codes are not required on OR lines, although this is not 
necessarily a meaningful thing to do. Other uses of the OR relation- 
ship are discussed later in this section (refer to figures 8-10 

and 8-18). 
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Figure 8-2. AND/OR Relationships ~ Record Identification Codes 


15-16 SEQUENCE 


This field is used to specify a special sequence to different record 
types in a file. If this field contains an alphabetic entry (note 
that this includes a blank entry, although a warning will be emitted), 
it specifies that the record types need not be in any special order. 


Within each file, all record types having alphabetic entries in the 
SEQUENCE field must be specified before those with numeric entries. 
All chained and demand files must have an alphabetic entry in this 

field. 


When coding this field the programmer must not use the alphabetic 
entries ND or Rb (b equals blank), because the compiler may mistake 
them for the ND or R of an AND or OR line. 


If this field contains a numeric entry, it indicates that sequence 
checking is to be done. The order of precedence is the sequence in 
which the records are declared on the Input Specifications, This 
allows the programmer to specify that one record type must appear be- 
fore another record type within a sequenced group. The program will 
automatically check the designated order as the records are read. 


The first sequenced record type specified must have the lowest sequence 
number (01), the next record type should be given a higher number, etc. 
Gaps in sequence numbers are allowed, but the numbers used must be 

used in ascending order. 


If a record is encountered that is out of sequence, the program will 
halt. The system operator can order the program to resume, at which 
time it will ignore the record that is out of sequence and read the 
next record from the file. 


Records in an AND or OR line cannot have a sequence field entry; the 
entry from the previous line also applies to the line with the AND or 
OR entry. 


In the example shown in figure 8-3, the input file PRCARD contains two 
record types which are to be sequence checked. Each group of input 
records of the input file PRCARD must contain exactly one of the first 
record type which may be followed by any number of records of the 
second type. A record identifying indicator of Ll is assigned to the 
first record type, so that a control break will occur each time the 
first record of a new group is read. 


17 NUMBER 


This field is used only if sequence checking is to be done (i.e., the 
SEQUENCE field contains a numeric entry). An entry in this field in- 
dicates whether more than one record of the designated type may appear 
in each group of a sequenced input file (see figure 8-3). Valid 
entries for this field are: 


18 


Definition | 
I 
Record types are not being se- 


quence checked (SEQUENCE field 
contains alphabetic entry). 


Not more than one record of this 
type will be present in each 
group. 


Any number of records of this type 
will be present in each group. | 


1 2 
pace | | | OPTION 


NUMBER 
eee 8 SEQUENCE 


RECORD IDENTIFYII 


@ C/Z/D 
% CHARACTER 


\ NOT SEQUENCED 
CHECKED 


E 
E 


SEQUENCED 
CHECK 


| 
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Figure 8-3. Input Sequence Checking 


Records in an AND or OR line cannot have a NUMBER field entry; the 
entry from the previous line also applies to the line with the AND or 
OR entry. 


OPTION 


This field is used only if sequence checking is to be done (i.e., the 
SEQUENCE field contains a numeric entry). An entry in this field in- 
dicates whether certain record types are optional. An alphanumeric 
"QO" entry specifies that a record of this type may or may not be pre- 
sent in each group of a sequenced file. If this field is left blank, 
each group may contain one or any number of records of this type, de- 
pending on the entry in column 17 (see figure 87-3), 


Records in an AND or OR line cannot have an OPTION field entry; the 
entry from the previous line also applies to the line with the AND or 
OR entry. Valid entries are: 


Definition 


Blank Record type must be present in 
each group, 


0 Record type is optional, and 
may not be present in each group. 


If all record types in a file are designated as optional, no sequence 
errors will be detected, 


19-20 RECORD IDENTIFYING INDICATOR 
This field may be used for two purposes: 
a. To assign an indicator to each record type. 


b. To indicate look~mahead fields. 


Definition 


Record identifying indicator. 
Control level indicator. 

Last record indicator. 

Halt indicator. 
Look~ahead field. 


If this entry is blank a warning will be emitted. The various in- 
dicators are defined in the following paragraphs. 


Record Identifying Indicator 01-99 


Each input file may contain different types of records requiring 
different operations. Record identifying indicators are used to 

Signal to the rest of the program cycle the type of record just read. 
When a specific record type is selected for processing, its corres~ 
ponding identifying indicator is turned ON. This indicator remains 

ON for the rest of the current program cycle and may be used to con- 
dition various calculation and output operations, as desired. All 
record identifying indicators are turned off at the same point in the 
program cycle. Each record identifying indicator should be unique 

and only one record identifying indicator may be ON for any one file 

at any one time. However, there may be more than one record identifying 
indicator ON at any one time, each one associated with a different file 
(i.e., through CHAIN or READ operations). 


Record identifying indicators do not have to be assigned in any order. 
If the same operations are to be performed on different record types, 
the same indicator may be assigned to more than one type. 


Record identifying indicators are not allowed in an AND line, but in 
dicators may be specified for every record type that requires special 
processing in an OR relationship. 


Control Level Indicator L1-L9 


A control level indicator is used instead of a record identifying in- 
dicator when a record type, rather than a control field, signals the 
start of a new control group. Refer to the CONTROL LEVEL field for 

a complete description of control level indicators. 


Last Record Indicator LR 


The last record indicator is used instead of a record identifying in- 
dicator when a record type, rather than automatic End-of-File, signals 
the end of processing. Final total operations are conditioned by this 
indicator. 


Halt Indicator HO-H9 


A halt indicator is used instead of a record identifying indicator 
when the occurrence of a specific record type denotes a desired con- 
dition requiring a program halt. 


Look-~Ahead Field ** 


A pair of asterisks (**) is used to indicate that fields named in the 
VARIABLE NAME field following the ** line are look-ahead fields. The 
**k Jine can follow only a file or record type which has an alphabetic 
sequence entry in columns 15-16. Columns 177-18 and 21-74 are left 
blank, 


A look-ahead field allows the program to access information in a field 
of the next record that will be available for processing. Thus, the 
program may use information from the look-ahead field to condition 
certain operations ahead of the time the record is available for 
processing. By using a look~ahead field, the program can do jobs that 
the matching record capability cannot handle or determine when the 
last card of a control group is being processed. 


Figure 8-4 shows processing of records from two input files, one 
primary and one secondary. All primary records are processed before 
any secondary records are available; therefore, to use data from the 
secondary file while processing the primary file record it is neces- 
sary to use the look-ahead feature. 


Look~Ahead 
Record Processed Records Available 
Pl P2 Sl 
Sl P2 §8§2 
82 P2 83 
83 P2 $4 
P2 P3 $4 
$4 P3 $5 
85 P3 S6 
S6 P3 S87 
P3 P4 $87 
Pp4 P5 S87 
S7 P5 S88 
P5 P6 S88 


104001 


PRIMARY FILE SECONDARY FILE 
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Figure 8-4. Records Available for Look-Ahead: Two Input Files 


Look-ahead fields may be specified for primary or secondary files only. 
One set of look-ahead fields may be specified per file and the field 
descriptions apply to all records in that file. 


For combined and update files, the look-ahead fields apply to the next 
record in the file only if the current record was read from some other 
file. Therefore, in a program which reads from one file only and that 
file is a combined or update file, look-ahead fields will apply to the 
current record, 


Figure 8-5 shows processing records from an update file and a secondary 
input file. 


Look-~Ahead 
Record Processed Records Available 
U1 Ul Sl 
Sl U2 S§2 
$2 U2 S83 
S3 U2 S84 
U2 U2 S84 
$4 U3 $5 
85 U3 S86 
S6 U3 S87 
U3 U3 S87 
U4 U4 S87 
S7 U5 $8 


At the time that the last record of a file is being processed, any 
look-ahead fields for that file will contain all nines, either signed 
numeric or alpha-numeric depending on the field type specified. 


104001 


101003 
101001 


UPDATE FILE SECONDARY INPUT FILE 
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Figure 8-5. Records Available for Look7~Ahead: One Update File, One Input File 


Look~ahead fields may not be used as result fields in calculation 
operations. The name given to a look~ahead field must not occur on 
any other Input or Extension Specification. If the look-ahead field 
occurs on an Output Specification, blank after must not be specified. 


In the example shown in figure 8-6, the fields are described twice 


so that information will be accessed both before and after the record 
is selected for processing. 
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RECORD IDENTIFICATION CODES 


When more than one record type is used within a file, only one record 
type will be selected for processing during each program cycle, The 
record identifying indicator for that record type will be turned ON 
when it is selected and will remain ON for the rest of the current 
program cycle, 


In order to identify the various record types to the program for the 
purpose of record selection, each record type must have a unique code 
assigned to it. This code consists of a certain character or combina-~ 
tion of characters occurring in certain positions of the record. 


The RECORD IDENTIFICATION CODES field is used to describe the code for 
each record type. If all records are to be processed alike regardless 
of their type, or if all records are of the same type, this field 
should be left blank. . 


This field is subdivided into three subfields of seven columns each, 
allowing up to three code characters to be described on one line. 
The three subfields are taken to be in an AND relationship, and any 
that are not needed to specify code characters should be left blank, 
Each of the three subfields is divided into four entries, and coding 
is the same for all three subfields. The subfields are discussed in 
the following paragraphs, 


21-24 ,28-31,35-38 POSITION 


These fields are used to give the locations in 

the record of each character in the record identi 
fication code. Entries must be numeric, between 
one and the record length specified, inclusive, 
and right-justified (leading zeros are optional). 


25,32,39 NOT 
These fields are used to indicate whether the 


specified character must be present in the record 
at the designated position. Valid codes are: 


Definition 


Character must be present in 
the location specified by the 
POSITION entry. 


Character must not be present 
in the location specified by 
the POSITION entry. 


26,33,40 C/zZ/D 


These fields are used to indicate which portion of 
the character specified in columns 27, 34, and 41 
should be used for comparison: the zone, the 
digit, or the entire character, Valid entries are: 


C Entire character, 
Z Zone portion, 
D Numeric (digit) portion. 


Every alphabetic character, numeric character, or 
special character is represented by a different 
combination of punches in the 80-column or 96- 
column cards. Each character punched on the card 
is composed of two parts, a zone portion and a 
digit portion. Even after a character has been 
read into the machine, it is still composed of 
these two parts (see appendixes A and B). 


A character is represented in the computer by 
eight bits. The first four bits comprise the zone 
portion and the last four bits comprise the digit 
portion. The configuration of these bits is set 
in the binary equivalent of their hexadecimal 
value, In appendix B, the hexadecimal value of 
the character A is given as Cl. Therefore, the 
corresponding bit configuration for A would be: 

1 1 0. 0.0 0 0 1 


Since the character is represented by 12 punch 
positions on an 80-column card and six punch po- 
sitions on a 96-column card, translation must 

take place so that it can be represented by eight 
bits in storage, This is an automatic function. 

As a result of it, however, the way characters 

are represented in the machine and the way they 
appear on the punched card are not always identical. 
Not all characters that have the same zone punched , 
in the card have identical zone structures in the 
machine. For example, character $ has the same 
zone punch in the card as character K. However, 
they do not have the same zone representation in 
the machine. 


Whenever just the zone or just the digit portions 
of characters are used in specific functions, such 
as sequencing, testing, or identifying records, 

the exact structure of the characters in the ma- 
chine must be known. For example, when identify- 
ing a record type on the basis of the zone portion . 
of the character D, notice that several characters - 
have the same zone structure as the letter D. If 

a card with the record identifying code of E is 
read, it is still considered to be a D type record . 
because the zone of character E is the same as the 
zone of character D. 
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The zone of the plus (+) character is treated 
like the zone of the characters A through I, and 
the zone of the minus (-) character is treated 
like the zone of the characters J through R, 
irrespective of the internal codes actually used 
for plus and minus. 


In figure 8-7, only the records of customers whose 
last names begin with the letters A through I will 
be processed since the zone portion of A is the 
same as for the characters B through I. The first 
letter of each last name begins in column 10, 
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Figure 8-7. C/2Z/D Coding Example 1 


In figure 8-8, 5S-digit employee numbers are 
checked to see that all 5 digits are numeric. 
The zone for all numeric characters is the same. 
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Figure 8-8. C/Z/D Coding Example 2 
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In figure 8-9, only persons whose names start 
with C, L, or T will be processed, since the digit 
portion of the characters L and T is the same as C. 
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Figure 8-9. C/Z/D Coding Example 3 


NOTE 


If packed decimal format is specified, 
the zone portion and the digit portion 
of each byte contains a numeric char- 

acter. Therefore, the user must know 

where the numeric character he is ref- 
erencing is located, i.e., either the 

zone portion or the digit portion. 


CHARACTER 


Any valid EBCDIC character may be used to identify 
the input record type. These fields are used to 
specify the character to be used for comparison as 
part of the identification code. 


If none of the RECORD IDENTIFICATION codes are 
found on a record, the program will halt. The 
system operator may request resumption of the 
program, at which time it will ignore the record 
in error and read the next record from the same 
file (see appendix E). 


STACKER SELECT 


This field is used to indicate the stacker into which the input card 

is to be placed after being read. Only card input or combined files 
may be stacker selected. Input files may be stacker selected only in 
the Input Specifications; combined files may be stacker selected either 
in the Input or Output-Format Specifications. If a combined file is 
stacker selected in both the Input and Output-Format Specifications, 
the Output-Format Stacker Specification overrides the stacker specified 
in the Input Specifications. Valid entries for this field are: 


43 


Definition 


Cards automatically go to 
default stacker. 


Blank 


Numeric Entry| Cards go into the stacker 
(1-6) | specified. 


Card types identified by OR lines may be stacker selected for a special 
stacker by an entry in this field; however, if the STACKER SELECT field 
entry is left blank, the card type selected by the OR line will go to 

the default stacker. AND lines may not have an entry in STACKER SELECT. 


At execution time, any record types specifying a stacker number higher 
than that available on the device being used will go to the default 
stacker. 


This entry should be left blank for input files with multiple I/O 
areas, otherwise a warning is emitted that the results may not be 
those the user intended, 


PACKED 


This field is used to specify that the external format of an input field 
is in packed decimal format. Valid entries are: 


Description 


Field is in unpacked decimal 
format or is alphanumeric, 


Field is in packed decimal 
' format. 


NOTE 


96-column devices will not handle packed 
decimal format, 


Whether in packed or unpacked decimal format, the data may be signed 

at the most significant or least significant position as specified by 
means of column 17 of the Control Card or by use of the dollar option 
RSIGN. The object program automatically converts all numeric data in- 
ternally during execution to packed decimal format with the sign at the 
most Significant position. 


Unpacked decimal format means that each byte of disk/tape storage con- 
tains one character. Each byte is divided into a 4-bit zone portion 
and a 4-bit digit portion: 


| Rees af cae 
zone digit zone digit uae hack zone digit 


Each digit portion holds one digit of the number. On conversion to 
packed decimal format, the zone portions are dropped, except for the 
sign position. 
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With packed decimal format, each byte can contain two decimal num- 
bers, The byte is divided into two 4-bit portions, and each 4-bit 
portion holds one digit, except for the sign position, 


Packed data is always character aligned externally (on tape or disk). 
If a field specifying an even number of digits is to be output, the 
following example illustrates the rules to be followed: 


left signed output 


right signed output 


S = sign 
O = digit zero - (even number digits are zero padded) 
dn. dy = digits of the field, 


Packed data input will always cause an odd field size for the field to 
contain the data, since even number digits are padded with a zero. 
All digits are considered data except the sign digit position. 


FIELD LOCATION 


This field is used to describe the location of data fields within a 
record, and is divided into two subfields that specify the beginning 
(FROM) and ending (TO) positions of the data field. A field of only 
one character will have the same position number entered in both sub- 
fields. Both entries must lie between 1 and the RECORD LENGTH. The 
TO entry must be greater than or equal to the FROM entry. Entries in 
the FROM and TO subfields must be right-justified; leading zeros are 
optional (figure 8-10). 
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Figure 8-10. FIELD LOCATION Coding Example 
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The length of a packed decimal field in digits (P in column 43) is 
2n-1, where n is the number of bytes occupied by the data as speci- 
fied by FROM and TO. 


If the FIELD NAME entry (columns 53-58) specifies an array name with- 
out an index, it is not necessary that the FROM and TO entries provide 
sufficient space for the whole array, as long as it is big enough for 
an integral number of array elements. The array will be read in from 
element 1 up to as many elements as will fit into the locations speci- 
fied. The decimal positions must contain the same entry as specified 
on the Extension Specifications for that array. 


DECIMAL POSITIONS 


This field is used to specify the number of positions to the right of 
the implied decimal point in a numeric field. This entry may not be 
blank for a numeric field; if the data field contains only integral 
values, a 0 should be entered to indicate no decimal positions. Valid 
entries are: 


Definition 
Alphanumeric field. 


Number of decimal positions 
in a numeric field. 


Any field to be used for arithmetic operations, or to be edited, must 
be numeric. The number of decimal positions specified cannot exceed 
the length of the field (as specified in the FIELD LOCATION field). 


FIELD NAME (VARIABLE NAME) 


This field is used to assign an identifier (name) to an input data 
field. All fields that will be referenced by the program must be 
named, Names must be assigned in accordance with the rules for form- 
ing field names as described in Section 2, A previously defined 
vector name may be used, which allows loading of the vector during 
input. Refer to Section 5 for a complete discussion of this method 
of vector loading. A separate line must be used for each field de- 
scription. 


All fields within one record type should have unique names; if two or 
more fields within the same record have identical names, only the last 
one defined is used. Fields from different record types may have the 
same name, but all names not uniquely defined must have the same 
length and data type (decimal position entry). These fields do not 
have to occur in the same location in each record. 


OR Relationship 


To eliminate duplicate coding of identical fields within different 
record types, the OR relationship may be used. The OR relationship, 
illustrated in figure 8-11, shows two record types which have identi- 
cal fields in the same record positions. Refer to columns 14-16 in 
this section. 
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Figure 8-11. OR Relationship - Identical Fields 
Within Different Record Types 
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FORM TYPE 


1 


Special Words 


The following special words are reserved for use as variable names in 
columns 53-58 of the Input Specifications: 


PAGE 
PAGE1 
PAGE2 


If page numbering is to be done on output, the special word "PAGE" 
(or '"PAGE1", or "PAGE2", for two more printer files) is used to indi~ 
cate that page numbering is to be done. Page field coding is il- 
lustrated in figure 8-12. 


This feature allows a page number to be entered through a field in an 
input record, the field called "PAGE" (or "PAGE1" or "PAGE2"). The 
page number printed will be one greater than the page number contained 
in the "PAGE" field of the input record. A page field is incremented 
by 1 each time before it is printed. The field may be defined as any 
length, but it must contain zero decimal positions. Unless otherwise 
specified, it is assumed: to be four digits in length with zero decimal 
positions (see figure 8-12). The "PAGE' field may be used in cal- 
culations like any other field, 


The same "PAGE" entry (PAGE", ''PAGE1", or "PAGE2'') may be used for two 
different output files, but this is not recommended. 


Figure 8-12 is an example of PAGE field coding on Input Specifications. 
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CONTROL LEVEL 


This field is used to assign control level indicators to primary or 
secondary files. Any field other than a whole array or a look-ahead 
field may be assigned a control level indicator, in which case it is 
known as a Control Field. Control fields are checked each program 
cycle for a change in information; when data in the field changes, a 
control break occurs. A group of records with the same information 
in the control field is known as a Control Group. Valid entries for 
this field are: 


Definition 


Control level field assigned. 


No control level field as~ 
signed, 


A control break occurs when a record containing a control field is 
read and the information in that control field is different from the 
information in the same control field of the previous record. When a 
control break occurs, the designated control level indicator turns 
ON, along with all control level indicators lower than it. For 
example, if control level indicator L5 is turned ON, L4, L3, L2, and 
Ll are also automatically turned ON. Control level indicator LO is 
always ON and cannot be assigned to a control field. 


A control level indicator may be turned on or off by SETON or SETOF, 
or may be used as a record identifying indicator. However, in such 
cases, control level indicators lower than the one specified are not 
turned on or off automatically. 


Control level indicators are used to condition operations, such as: 


a. Calculations that must be performed when a control group 
changes (totals, etc.). 


b. Operations that must be performed on the first card of a 
new control group. 


c. Summary punching or total printing that must be performed 
for each control group. 


The following rules must be observed when assigning control level 
indicators: 


a. The same control level indicator may be used in different 
record types or files; however, the control fields associated 
with that indicator must be of the same length. (See 
figure 8-13). 


b. Field names have no effect upon the control level indicator 
assigned; therefore, control fields in different record types 
may have both the same name and the same indicator assigned. 


c. The maximum size of a control field is 255 characters. 


d. Within one record type, control fields may overlap. 
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Figure 8-13. Control Fields in Two Record Types 


Numeric control, fields are treated as though they had no 
decimal positions. 


For numeric control. fields, only the digit portion of each 
character is compared; thus, negative numbers are treated 
the same as positive numbers. 


All control fields with the same control level indicator are 
considered numeric if any one of those fields is described 
as numeric. 


Control levels need not be written in any special sequence, 
and gaps are permitted in the control levels assigned. 


Control fields are initialized to hexadecimal zeros. 


Total calculations and total output operations are bypassed 
until the first cycle following a cycle in which a record 
specifying control field is selected. This prevents a con- 

trol break from occurring the first time a record with control 
fields is read (the input control fields would usually not be 
equal to the value contained in the initialized control fields). 


Different record types in a file need not have the same number 
of control fields. However, the user must ensure that unwanted 
control breaks do not occur. 


Split Control Fields 


If the same control level indicator is assigned to more than one field 
within the same record type, the control field created is known as a 
Split Control Field. All fields so designated (those having the same 
control level within the same record type) are combined by the pro- 
gram in the order specified in the Input Specifications and are treated 
as one control field. Split control fields are illustrated in figure 
8-14, 
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Figure 8-14. Split Control Fields 


The following special rules must be observed for split control fields: 


a. The same control level indicator may be used for split con- 
trol fields in different record types if the field names used 
are different. The length of various portions of a split con- 
trol field in one record type may be different than the cor- 
responding portions in another record type; in fact, a control 
field may be split in one record type but not in another, 
However, the total length of the control fields (whether split 
or not) must be the same in both record types. For further 
information see FIELD RECORD RELATION (column 63-64). 


b. If one portion of a split control field is numeric, the en- 
tire field is considered numeric. 


c. Any one portion of a numeric split control field may not 
exceed the maximum size for numeric fields as specified in 
Section 1; however, the total length of all fields assigned 
to one control level indicator (within each record type) 
may be as great as 255 characters. 


d. <A mixture of packed and unpacked control fields is allowed. 


e. No other specification lines may come between lines de- 
scribing split control fields. 


61-62 MATCHING FIELDS 


This field is used to indicate matching fields and sequence checking, 
Valid entries are: 


[ Entry Definition 
Blank No matching is done, 
M1-M9 Matching to be performed when 


two or more input, update, or 
combined files specify match- 
ing fields. 


Sequence~checking to be per- 
formed when only one input, 
update, or combined file 
specifies matching fields. 


Matching fields and sequence checking cannot be specified for chained, 
demand, or table files. The entry in this field designates: 


a. Matching fields and sequence checking when two or more input, 
update, or combined files specify the same matching field 
value (M1-M9), or 


b. Sequence checking only, when only one input, update, or 
combined file specifies a matching field (MI1-M9). 


sequence Checking 


Matching field values allow sequence checking of records within a file 
when one or more primary or secondary file(s) specifies matching 
fields. As many as nine (M1-M9) fields within the record may be se~ 
lected for sequence checking. When a record is encountered which has 
a field or fields out of sequence, the program will halt. When the 
system operator resumes program operation, the record in error is 
ignored and the next record from the same file is read. 


The following rules must be observed when assigning matching field 
values for sequence checking: 


a. All fields designated for sequence checking must be in the 
same order, either ascending or descending. 


b, When more than one field is designated for sequence checking, 
all fields specified are combined in order by ascending se- 
quence of matching field values and are treated as one con- 
tiguous field. 


c. Split sequence fields are not allowed; thus, the same match- 
ing field value should not be used more than once in the 
record, unless field record relation indicators are used, 


d. Numeric fields are treated as though they had no decimal 
positions. 


e. For numeric fields, only the digit portion of each character 
is compared; thus, negative numbers are treated the same as 
positive numbers. 


f. All sequence fields are considered numeric if any one of the 
fields is numeric. 


The example shown in figure 8-15 illustrates coding procedures for 
sequence checking. 
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Figure 8-15. Coding for Sequence Checking 


Matching Fields 


Matching field values allow comparison of records from two or more in- 
put, update, or combined files to determine when the records match, As 
many fields as desired (even entire records) can be selected for match- 
ing, and as many as nine different fields may be designated as Match 
Fields (M1I-M9). The matching record indicator (MR) will turn ON when- 
ever the Match Fields from a primary file are exactly the same as the 
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Match Fields from a secondary file. The matching field values (M1-M9) 
are used to specify which fields in each record are to be matched, and 
cause MR to turn ON when a match occurs. MI1-M9 are not indicators; 

MR is used to condition those operations that should be done only when 
records match. 


The following rules must be observed when assigning matching field 
values: 


a. All Match Fields must be in the same sequence during input, 
because sequence checking is automatically done on all fields 
designated as matching fields. A sequence error in any field 
will cause a program halt. When the system operator resumes 
program operation, the record in error is ignored and the 
next record from the same file is read, 


b. If matching is used, it is not necessary for all primary and 
secondary files to have Match Fields. Neither must all 
record types within a file have Match Fields. But at least 
one record type from two files must have Match Fields speci- 
fied if the files are ever to be matched. 


c. All fields given the same matching field value (M1-M9) must 
be of the same length, 


d. Overlapping of different Match Fields within one record type 
is allowed; however, the length of any individual Match Field 
must not exceed 255 characters, 


e. All records to be matched should (not required) contain the 
same Match Fields (M1-M9); otherwise, a match may not be 
obtained. 


f. When more than one Match Field is designated for a record 
type, all fields specified are combined in order by ascending 
sequence of matching field values and are treated as one con-~ 
tiguous Match Field. M9 is high order. 


g. Split Match Fields are not allowed; thus, the same matching 
field value should not be used more than once in one record 
type, unless field record relation indicators are used. 


h. Numeric Match Fields are treated as though they had no 
decimal positions. 


i. For numeric Match Fields, only the digit portion of each char- 
acter is compared; thus, negative numbers are treated the same 
as positive numbers. 


j.- All Match Fields with the same matching field value are con- 
Sidered numeric, if any one of the fields is numeric. 


When more than one matching field value is used for matching 
records, all Match Fields must match before the MR indicator 
turns ON. 


Field names have no effect upon the matching field values 
assigned; therefore, Match Fields in different record types 
may have both the same name and the same matching field value 
assigned. 


Processing of matching fields proceeds as follows: 


a. 


When a record from the primary file matches a record from the 
secondary file, the primary file record is processed first. 


When records do not match, the record with the lowest (as- 
cending files) or highest (descending files) Match Field value 
is processed first. 


A record type which has no matching field specification is 
processed immediately after the record it follows, and the 

MR indicator is not turned ON. If such a record is the first 
one in a file, it is processed first (even if it is not in 
the primary file). 


Matching records allow the program to enter data from the 
primary record into the matching secondary record, since the 
primary record is processed first. Transfer of data from 
secondary records into matching primary records may be done 
through the use of look-ahead fields. 


When additional secondary files are declared, all matching 
records are processed in one secondary file before passing 
control to the next secondary file. The precedence of the 
secondary files is determined by their order of appearance 
on the Input Specifications. 


In figure 8-16 the two matching fields will be combined in the ascend- 
ing order of the matching field values, Ml and M2. Notice that an 
End-of~File has been specified for the secondary file. This will 
cause the job to end after the last record in the file, TIMECDS, has 
been read. 
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Coding Matching Fields 


Figure 8-16. 


8-26 


The example shown in figure 8-17 is used to illustrate the order in 
which two matching fields will be processed. An End-of-File has been 
specified for the primary file. 


PRIMARY FILE SECONDARY FILE 
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Figure 8-17. Record Selection From Two Matching Files 


The files (figure 8-17) will be processed in the following order: 


sl Records with no matching fields are processed before 
records with matching fields regardless of file type. 

5 The MR indicator is ON. All matching secondary records 

53 are processed after the primary record. 

P2 

P3 god he F 

3| The MR indicator is ON. 

P4 

35 When no records match, the record with the lowest se- 
quence number is processed, regardless of file type. 

PS T : , : 

S6 he MR indicator is ON. 

P6 

S7 The MR indicator is ON, 

s8 

P7 Last record processed, 

S9 When an End-of-File condition is specified for a primary 


file, secondary records are not processed unless the MR 
indicator is turned ON, 
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The example shown in figure 8-18 illustrates the order in which re- 
cords with three matching fields are processed, 


PRIMARY FILE 


614050 


(2$1) 


1ST SECONDARY FILE 2ND SECONDARY FILE 


Figure 8-18, Record Selection From Three Matching Files 


The files (figure 8-18) will be processed in the following order: 


Pl 


P2 

181 
281 
282 


182 


P3 
183 
Pp4 
P5 
283 
P6 
254 
P7 
P8 
184 
185 
186 
P9 
187 
285 


256 
257 


The MR indicator is ON since all Match Fields match, 


When records do not match, the lowest matching field is 
processed next, 


The MR indicator is ON. 287 is the last record processed. 


63-64 


FIELD RECORD RELATION 


The following rules should be observed when assigning field record 
relation indicators. 


a. A field record relation indicator need not necessarily be the 
same as any record identifying indicator specified for the file. 


b. Fields within one record type which specify the same field record 
relation indicator may be entered in any order; however, the most 
efficient data storage is obtained when they are written as a 
group on specification lines following one another. 


c. All portions of a Split Control Field must be assigned the same 
field record relation indicator and must be written as a group on 
specification lines following one another. 


If field record relation indicators are not to be assigned, this field 
should be left blank (see figure 8-19). The acceptable entries are as 
follows: 


Definition 


No field record relations. 


Record identifying indicator 
assigned to a record type. 


Control level indicator de- 
fined elsewhere. 


Matching record indicator. 


External indicator defined 
elsewhere, 


Halt indicator defined else- 
where, 


Each of the entries is discussed in the following paragraphs. 


01-99 Record Identifving Indicators 


When several record types have been defined in an OR re- 
lationship, all fields defined apply to all record types. 
In many cases, however, not all of the record types de- 
fined have exactly the same fields. The FIELD RECORD 
RELATION field allows the programmer to specify that some 
fields apply only to certain record types and not to 
others. If the FIELD RECORD RELATION field is left blank, 
the associated field applies to all record types to which 
it is subordinate. However, by placing the same entry 
found in the Record Identifying Indicator field of one 
record type in the FIELD RECORD RELATION field, the field 
is identified as applying only to the corresponding record 
type. 


Control Fields and Match Fields may also be related toa 


particular record type in an OR relationship by a FIELD 
RECORD RELATION entry. 
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Figure 8-19. Field Record Relations - Using the OR Relationship 


When two or more Control Fields or two or more Match 
Fields have the same control level indicator or matching 
field value, respectively, only one of these may not have 
a field record relation indicator assigned. (This applies 
to a group of specifications, if it is a split control 
field specification.) Thus, specifications with field 
record relation indicators are used if that indicator is 
ON; when none of the field record relation indicators are 
ON, only the specification without any field record re- 
lation indicator is used. 


L1-L9,MR Control Level ior Matching Record Indicator 


Certain fields may be used only when a special condition, 
such as a control break or matching records, occurs, To 
indicate the condition under which data will be accepted 
from a particular field, the control level (L1-L9) or 
matching record (MR) indicator is used. Data from the 
associated field will be accepted only when the specified 
indicator is ON. 


65-70 


65-66 


67-68 


69-70 


U1-U8 External Indicators 


External indicators are used primarily to condition files 
in the File Description Specifications (see columns 717-72, 
FILE CONDITION). However, they may also be used to con- 
dition fields even though file conditioning is not speci-~ 
fied. Data from the associated field will be accepted 
only when the specified indicator is ON, 


HO-H9 Halt Indicators 


A halt indicator is used to associate a field with a 
record type in an OR relationship which has the same halt 
indicator specified in the RECORD IDENTIFYING INDICATOR 
field. 


FIELD INDICATORS 


This field is divided into three subfields to allow testing of a field 
for a condition of plus (positive), minus (negative), or zero. The 
indicator specified turns ON if the condition tested is True, and 
turns OFF if the condition tested is False. Thus, these indicators 
may be used to condition certain calculation or output operations. 
Valid entries are: 


Definition 


No field indicators used, 


Field indicator. 


Halt indicator. 


The FIELD INDICATOR field is subdivided as described in the paragraphs 
that follow. 


PLUS 


Any valid indicator specified in this field will turn ON if the cor- 
responding data field is greater than zero (numeric field only) or 
greater than blank (alphanumeric field). 


MINUS 

Any valid indicator specified in this field will turn ON if the 
corresponding data field is less than zero (numeric field only) or 
less than blank (alphanumeric field). 


ZERO OR BLANK 


Any valid indicator specified in this field will turn ON if the cor- 
responding data field is zero (numeric field only) or blank (alpha- 
numeric field). 


75-80 


The following rules must be observed when assigning and using field 
indicators: 


a. 


All field indicators are OFF at the beginning of the progran, 
and remain OFF until the condition being tested is satisfied 
on the input record just read. Note that if RPG 1 dialect is 
specified on the Control Card Specifications, all valid in- 
dicators used as zero or blank indicators will be initialized 
ON at the beginning of the object program execution, unless 
they are also used as record identifying indicators. 


A field may be assigned more than one indicator; however, only 
the indicator specified for the condition with a true result 
will be turned ON, All other indicators assigned to the field 
will be turned OFF. 


The state of a field indicator assigned to fields in different 
record types is always determined by the last record selected. 


The state of a field indicator assigned to more than one field 
within one record type is determined by the last field to 
which it is assigned. 


When different field indicators are assigned to fields in 
different record types, a field indicator will remain ON 
(or OFF) until another record of the same type is selected, 


If a halt indicator specified in the FIELD INDICATOR field 

is turned ON as a result of the corresponding condition being 
true, the program will halt after the input record which 
caused it to turn ON has been completely processed. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 9 


CALCULATION SPECIFICATIONS AND 
OPERATION CODES 


Calculation Specifications are used to describe the operations to be performed 
on the data and to specify the order in which those operations are to be per- 
formed, Calculation Specifications are of three types, which are optional, 
but if they occur, must appear in the following order: 

a. Detail calculations. 

b. Total calculations. 

c. Subroutines. 


Within each grouping, operations are performed in the order in which they are 
written, 


Each specification line describes one operation, and is divided into three 
functional parts: 


a. Conditions under which the operation is to be performed 
(columns 7-17). 


b. The kind of operation to be performed and the data which is to be 
operated upon (columns 187-53). 


c. Tests to be made upon the results of the operation (columns 54-59). 
FIELD DEFINITIONS 


Figure 9-1 can be used in conjunction with the following field definitions for 
the Calculation Specification, 


1-2 PAGE 

Refer to Section 2 for a complete description. 
37-5 LINE 

Refer to Section 2 for complete description. 
6 FORM TYPE 

A C must appear in this field. 


7-8 CONTROL LEVEL 


The valid entries for this field are listed below, and each entry is 
described in the paragraphs that follow. 


Burroughs B 1700 RPG 
PROGRAM !D PAGE OF 
PROGRAMMER DATE 
u a6 CALCULATION SPECIFICATIONS seceean 1 80 
pace | | | HALF AODJUS 
FORM TYPE CONTROL LEVEL DECIMAL POSITIONS : IBERTIEIGATION LI) 


INDICATORS 
LINE 
78 (LE vhs 


FACTOR 1 OPERATION 


Contains one of the following control level indicators: 


LO-L9 (perform calculation at control break), LR (per- 
form calculation after the last record), SR (calcula- 
tion is part of a subroutine), AN, Ok (establishes AND 
or OR relationships between indicators), or blank. 


9-17 Columns 10-11, 13-14, 16-17 may contain up to 3 
indicators to condition a calculation operation. 
Entries: Blank, 01-99, L1-L9, LR-MR, HO-H9, U1-U8, 
OA-OG, or OV Columns 9, 12, 15 specify that the 
following indicator is to be off. Entries: Blank 
or N. 


18-27 Contains either the name of any user or compiler 
defined field, an alphanumeric or numeric literal, any 
subroutine, or TA@ name, or vector name, any special 
name, or blank. Entry must be left-justified. 


28-32 Specifies the type of operation to be performed. 
Entries: ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, MVR, 
XFOOT, SQRT, MOVE, MOVEL, MLLZO, MHHZO, MLHZO, 

MHLZO, COMP, TESTZ, BITON, BITOF, TESTB, SETON, 

SETOF, GOTO, TAG, ZIP, LOKUP, BEGSR, ENDSR, EXSR, 
FORCE, EXCPT, DSPLY, READ, CHAIN, or DEBUG. Entry 
must be left-justified. 


33-42 Contains either the name of any user or com- 
piler defined field, any alphanumeric or numeric 
literal, a subroutine name, a vector name, any 
special name, a GOTO operation label, a filename or 
blank. Entry must be left-justified. 
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Figure 9-1. 
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COMMENTS 


FIELD 
LENGTH 


43-48 Specifies the name of the field, vector, or 
vector element that will be used to store the re- 
sults of the operation. Entry must be alphanumeric 


axa - 
ana left-justified. 


49-51 Specifies the length of the result field. 
Entries: Blank or any decimal numeric. 


52 Specifies the number of decimal positions. If 
blank, entry is alphanumeric. Entries: Blank or 
o-9. 


53 Specifies if the contents of the result field 
are to be rounded off. Entries: Blank or H. 


54-55 Entry is turned on if the result field is posi~ 
tive or FACTOR 1 is the highest in a compare opera~ 
tion, or FACTOR 2 is the highest in a lookup operation 
or a tested zone (TESTZ) is a plus-zone. Entries: 
01-99, L1-L9, LR, HO-H9, OA-OG, OV or blank. 


56-57 Entry is turned on if the result field is nega- 
tive, or FACTOR 1 is the lowest in a compare opera~ 
tion, or FACTOR 2 is lowest in a lookup operation, 

or a tested zone (TESTZ) is a minus~zone. Entries: 
01-99, L1-L9, LR, HO-H9, OA-OG, OV or blank. 


58-59 Entry is turned on if the result field is 
zero, or FACTOR 1 is equal to FACTOR 2 in a compare 
or lookup operation, or a tested zone (TESTZ) is 
neither a plus~ or minus-zone. Entries: 01-99, 
L1-L9, LR, HO-H9, OA-OG, OV or blank. 


Calculation Specifications Summary Sheet 


Definition 


Calculation operation is 
part of detail calculations 
or may be part of a subroutine. 


Calculation operation is per- 
formed in total calculations 
when the designated control 
break occurs or the speci 
fied indicator is set ON 

(LO is always ON). 


Calculation operation is per- 
formed after the last record 
has been processed (or if set 
ON). 


Calculation operation is part 
of a subroutine (documenta-~ 
tional not required for sub- 
routines). 


Establishes AND and OR re- 
lationship between lines of 
indicators. | 


An entry of LO-L9Y or LR indicates that the operation is performed 
during total calculations when the specified indicator is ON. The 
first entry of LO-L9Y or LR in columns 778 determines the start of 

total calculations. All detail calculations (if any are specified) 
must precede any total calculations. Any operations with blanks in 
columns 77-8 occurring before any total operation, or any BEGSR opera- 
tion, are treated as detail operations, and are performed during detail 
calculations in every cycle depending upon the conditions specified in 
columns 9-17. 


Subroutines, if used, must be specified after all detail and total 
lines. For a subroutine, column 7-8 may contain SR, OR, AN, or blank. 
The first BEGSR operation determines the start of subroutines. 


LO-L9 Control level indicators LO-L9Y are used to condition opera- 
tions that are to occur at a control break. If a control 
level indicator is specified in this field, the operation 
described on the same specification line is done only when 
the designated indicator is ON. When a control break for a 
certain level occurs, all lower control level indicators 
also turn ON. However, when a control level indicator used 
as a record identifying indicator turns ON to indicate a 
specific record type, or when a control level indicator is 
turned ON by a SETON operation, all lower level indicators 
remain OFF. Control level indicators need not be specified 
in any particular order. Operations will be executed in the 
order in which they are specified, 


The LO indicator is turned ON during every cycle of the pro- 
gram after detail output. If no other control level in- 
dicators are assigned, but it is desired to perform total 
calculation and total output operations, the LO indicator may 
be used to condition those operations. LO indicator coding 
is illustrated in figure 9-2, 
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Figure 9-2. LO Indicator Coding Example 


LR The LR indicator automatically turns ON when the last record 
has been read and processed (all control level indicators 
LI-L9 also turn ON). This indicator is used to condition 
those operations that are to be performed at End-of-File. 


SR The SR entry is not an indicator; rather, it is used to in- 
dicate that the specification on the same line is part of a 
subroutine. All subroutine lines must be specified after 
all other calculation lines. 


AN-OR This field may: also be used to specify that lines of indica- 
tors are in an AND or OR relationship. There is no limit on 
the number of AND or OR lines that may be specified; however, 
it is recommended that the user not exceed seven if compati- 
bility with other Burroughs systems is desired. The last 
line of a group in an AND or OR relationship contains the 
Operation Code! and all operands. A1l previous lines in the 
group must contain blanks in columns 18-59. The first line 
of a group may: contain an LO-L9, LR,or SR entry if the entire 
group is conditioned by a control level indicator or is part 
of a subroutine. AND/OR relationship is illustrated in 
figure 9-3. Each AND/OR line, and the previous line, must 
contain at least one indicator in columns 9-17. 
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Figure 9-3. AND/OR Relationship Coding Example 
9-17 INDICATORS 


This field is divided into three subfields such that up to three in- 
dicators on each line may be specified to condition a calculation 
operation. Each subfield is divided into two parts, as follows: 


a. NOT (one column), 
b. INDICATOR (two columns). 


The NOT portion is used to specify that the associated indicator must 
be OFF in order for the operation to occur, If this condition is 
desired, an N must be entered in the NOT position; otherwise, the NOT 
portion must be left blank. 


The INDICATOR portion is used to specify the indicator to be tested 
for ON (NOT = blank) or OFF (NOT = N). Only the following entries 
are allowed in this portion of the INDICATOR field: 


Definition 


Operation not conditioned by any 
indicator. 


Operation conditioned by indi- 
cator used elsewhere in the 
program, 


Operation conditioned by con- 
trol level indicator previously 
assigned. 


Operation conditioned by last 
record indicator. 


Operation conditioned by matching 
record indicator. 


Operation conditioned by halt in- 
dicator used elsewhere in the 
program, 


Operation conditioned by ex- 
ternal indicator previously 
defined. 


OA-OG, OV Operation conditioned by over- 
flow indicator previously defined. 


All three indicators on one line are in an AND relationship. All in- 
dicators on one line (or grouped lines), plus the Control Level 
Indicator (if used) must be ON or OFF as specified, in order for the 
associated operation to take place. 


Each of the indicators is discussed in the paragraphs that follow. 


01-99 The indicators 01-99 may be used to condition calculation 
operations that are to be performed only for specific in- 
put record types (record identifying indicators), to 
condition calculation operations that are to be performed 
only when an input field meets certain conditions (field 
indicators), or to condition calculation operations acu 
cording to the results of previous operations in the 
Calculation) Specifications (resulting indicators). 


LO-L9 The control level indicators, L1-L9, assigned in the 
CONTROL LEVEL field (Input Specifications) or the 
RESULTING INDICATORS field (Calculation Specifications) , 
may be used to condition operations that are to be per- 
formed only! on the first record of a new Control Group. 
LO may be specified, but is always ON. 


LR The LR indicator is used to condition operations that 
are to be performed at End-of-Job. 


MR The MR indicator is used to condition operations that 
are to be performed only when matching input records 
are found. 


18-27 


HO-H9 


U1-U8 


OA-OG, OV 


The halt indicators, previously assigned in the FIELD 
INDICATORS field (Input Specifications) or the RESULTING 
INDICATORS field (Calculation Specifications), may be 
used to condition operations that are to be performed 
only when an error condition occurs, 


Since the program does not halt until after the record in 
error has been completely processed, some operations 

must be prevented in order to avoid erroneous results. 

By using the halt indicators in conjunction with an N in 
the NOT portion of the INDICATORS field, an operation may 
be inhibited when the specified halt indicator is ON. 


The external indicators, U1-U8,may be used to condition 
operations that are to be performed only when the speci-~ 
fied indicator has been set at execution time. See FILE 
CONDITION field (Section 4) for a complete description of 
external indicators. 


The overflow indicators, OA-OG, OV, previously assigned 
in the OVERFLOW INDICATOR field (File Description 
Specifications), may be used to condition operations that 
are to be performed when the overflow line on a printer 
file has been reached, 


The following special rules must be observed in specifying indicators: 


Ae 


FACTOR 1 


When a control level indicator (LI-L9) is used in the INDI- 
CATORS field and not in the CONTROL LEVEL field, the opera- 
tion conditioned by the designated indicator is performed 
only for the record which caused the Control Break or any 
higher-level Control Break. 


All operations conditioned by control level indicators speci 
fied in the CONTROL LEVEL field are performed before those 
conditioned by control level indicators specified in the 
INDICATORS field. 


If a control level indicator is specified in the CONTROL LEVEL 
field and the matching record indicator (MR) is specified in 
the INDICATORS field, MR indicates a matching condition in 

the previous record (not the record just read, which caused 
the Control Break). After all operations conditioned by con- 
trol level indicators in the CONTROL LEVEL field are done, 

MR then indicates the matching condition on the record just 
read. 


This field is used to supply the data to be operated upon by the 
Operation Code specified in columns 28-32. 


Allowable entries are: 


ae 
b. 


Ce 


The name of any field previously defined or to be defined later. 
A literal (alphanumeric or numeric). 


The name of a subroutine (BEGSR operation only). 


9-7 


28-32 


33742 


d. <A table or arraly name (vector name) or an element of a vector. 
A vector element is composed of the vector name, followed by 
a comma, corione? by the desired index value. 


e. The special words UDATE, UMONTH, UDAY, UYEAR, PAGE, PAGEI1, and 
PAGE2., 


£. A label (TAG or: ENDSR operation only). 


Entries, including numeric literals, in this field must be left- 
justified, and are dependent upon the particular operation being speci- 
fied. 


OPERATION 

This field is used to specity the proper Operation Code for the type 
of operation to be performed using FACTOR 1 and FACTOR 2. The Opera~ 
tion Code must be left-justified in the field. 

Operations are performed in the order in which they appear on the 
Calculation Specifications sheet; however, all operations conditioned 
by control level indicators specified in the CONTROL LEVEL field (ex~ 


cept those which belong to subroutines) must appear after those opera- 
tions not conditioned by control level indicators. 


Each of the operation codes is discussed in detail in the second half 
of the section. 


FACTOR 2 


This field is used to supply the data to be operated upon by the Opera- 
tion Code specified in columns 28-32. Allowable entires are: 


a. The name of any field defined elsewhere in the program. 

b. A literal (atenaninenie or numeric). 

c. The name of a gubroutine (EXSR operation only). 

d. A table or array name (vector name) or an element of a vector. 
A vector element is composed of the vector name, followed by 


a comma, followed by the desired index value. 


e. The special worlds UDATE, UMINTH, UDAY, UYEAR, PAGE, PAGEI1, 
and PAGE2, 


f. A label (GOTO operation only). 


g. A filename (DEBUG, DSPLY, CHAIN, READ,or FORCE operation 
only). 


Entries in this field nae be left-justified, and are dependent upon 
the particular operation being specified. 


43-48 


49-51 


52 


RESULT FIELD 


This field is used to name the field, vector, or vector element that 
will be used to store the results of the operation specified. The 
use of this field is dependent upon the particular operation being 
specified. Any vector or vector element previously defined or any 
field defined here or elsewhere in the Input or Calculation specifi- 
cations may be used as a RESULT FIELD. 


The special words UDATE, UDAY, UMONTH, UYEAR must not be specified as 
RESULT FIELD. 


Definition of a new field is also allowed, and is accomplished by 
entering the new field name, along with FIELD LENGTH and DECIMAL PO- 
SITIONS entries for that field. The field name specified must be 
entered left-justified, must begin with an alphabetic character, and 
must contain no imbedded blanks or special characters. 


FIELD LENGTH 


This field is used to specify the length of a result field that has 
not been previously defined. Numeric and alphanumeric fields are 
limited to the size specified in Section l. 


If this entry is left blank the field must be defined elsewhere. This 
field must be blank if RESULT FIELD is blank. It is allowable to 
enter the length of a field that has been previously defined; however, 
the length and number of decimal positions specified must be the same 
as that previously defined. 


Entries in this field must be right-justified, and leading zeros 
are optional. 


DECIMAL POSITIONS 


This field is used to specify the number of positions to the right of 
the implied decimal point in a numeric result field. If the RESULT 
FIELD is alphanumeric, or the FIELD LENGTH is blank, this field must 
be left blank. If an entry is made, however, it must agree with the 
previous entry specified for the field. The valid entries are: 


Definition 


Alphanumeric field (or a 
field defined elsewhere). 


Number of decimal positions 
in a numeric field. 


Numeric result fields when defined must have the number of decimal 
positions specified; if the field only contains integral values, a 
zero must be entered to indicate no decimal positions. 


The number of decimal positions specified must not exceed the length 
of the RESULT FIELD, as specified by the FIELD LENGTH entry. 


53 HALF ADJUST 
This field is used to indicate whether or not the contents of the 
RESULT FIELD are to be rounded. Rounding is accomplished by adding 5 
(or -5 for negative values) to the digit to the right of the last 
decimal position of the RESULT FIELD. Then all digits to the right 
of the last decimal position are dropped. Valid entries for this field 
are: 
Entry Definition 
Blank Do not half adjust. 
H Half adjust. 
Entries in this field are allowable only for certain arithmetic 
operations. 
54-59 RESULTING INDICATORS 
Valid entries for this field are: 
Definition 
01-99 Any numeric indicator. 
L1-L9 Any control level indicator. 
LR Last record indicator. 
HO~H9 Any halt indicator. 
OA~-OG, OV Any overflow indicator. 
Indicators specified in these columns are set OFF immediately before 
the operation is performed. Immediately after the operation, indi- 
cators are set ON to indicate the result of the operations. The use 
of the result indicators is dependent on the type of operation speci- 
fied. 
Resulting Indicators must not be specified when the RESULT FIELD is 
an array name, the only exception being a LOKUP operation. 
Figure 9-4 illustrates the use of resulting indicators and various 
operation codes. The specific uses of the result fields is further 
described in conjunction with the discussion on the various operation 
code types in this section. 
60-74 COMMENTS 
This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 
757-80 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 
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Figure 9-4, Resulting Indicators Coding Example 


OPERATION CODES 


Various categories of Operation Codes are provided to allow most types of 

data manipulation required by the RPG programmer. Operation Codes are entered 
only in the OPERATION field of the Calculation Specifications, and specify 
what type of arithmetic or logical operation is to be performed on the as- 
sociated operands. In the following paragraphs an indexed vector or a table 
name is valid anywhere that a field name is valid. 


Table 9-1 summarizes each of the PODETA ETON codes discussed in the following 
paragraphs, 


ARITHMETIC OPERATIONS 


Arithmetic operations are only allowed on numeric data items. FACTOR 1 and 
FACTOR 2 must name numeric fields or contain numeric literals; the RESULT FIELD 
must be numeric. All results will be signed and decimal alignment will be 
performed, If the RESULT FIELD is not large enough to hold the result of an 
arithmetic operation, the result: will be truncated at the most significant 

end. 


FACTOR 1, FACTOR 2 and the RESULT FIELD may all be different fields or any 
two or all three may be the same field, HALF ADJUST may be specified for all 
operations except SQRT and MVR (i.e., DIV when followed by MVR). Resulting 
indicators may be specified for all Cyan sean provided the RESULT FIELD is 
not a whole array. 


A whole array may be entered in FACTOR 1 or FACTOR 2, as long as the RESULT 
FIELD also specifies a whole array. In this case, the designated arithmetic 
operation will be performed on each element of the array or arrays designated 
as factors, with the result being placed in the corresponding elements of the 
array designated in the RESULT FIELD. The operation is terminated when the 
end of the shortest array is reached. If the RESULT FIELD is an array, and 
FACTOR 1 and FACTOR 2 are not arrays, the result of the operation performed 
on FACTOR 1 and FACTOR 2 is placed in all elements of the RESULT FIELD array. 


The use of result indicators in connection with arithmetic operations is as 
shown below: 


a. Plus (Columns 54-55). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is positive. 


b. Minus (Columns 567-57). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is negative. 


c. Zero (Columns 587-59). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is Zero. 


Each of the arithmetic operations is discussed in the paragraphs that follow. 


Table 9-1. Summary of Operation Codes 


n 
at & 
a 46 ae 
te om) a | ga el ra 
° ag TH Ew n ao 
: ~p pel axolaa [Hos] on 
Operation Entry 3) He} OE | on ae] ay 
Type Columns Definition f ie ea Ven t8e728 
28-32 
Arithmet~ ADD Add Factor 2 to Factor 1 
mi Clear Result Field and add Facto5 2 
Opera 
tions Subtract Factor 2 from Factor 1 


Clear Result Field and subtract Factor 2 


Multiply Factor 1 by Factor 2 
Divide Factor 1 by Factor 2 


Move remainder of preceding division to a 
Result Field 


Sum elements of an array and put sum in 
Result Field 


Derive the square root of Factor 2 


Move Factor 2 into Result Field, right~justified 
Move Factor 2 into Resuit Field, left-justified 


Move zone from low-order position of Factor 2 
to low-order position of Result Field 


3 


maida i(mia 


Move 
Operation 


Move 
Zone 
Operation 


Move zone from high-order position of alphanumeric 
Factor 2 to high order of alphanumeric Result Field 


Move zone from low-order position of Factor 2 to 
high-order position of alphanumeric Result Field 


Move zone from high-order position of alphanumeric 
Factor 2 to low-order position of Result Field 


Compare Compare Factor 1 to Factor 2 


Operations Tests the zone portion of the leftmost character of 
Result Field 


Set off specified bits 
Test specified bits 
Set one, two, or three specific indicators on 


Binary 
Field 
Operations 


Setting 
Indicators 


Set one, two, or three specific indicators off 


Program 
Branching 
Operations 


Branch to another calculation specifica~ 
tion line 


TAG Identify the name in Factor 1 as a destination 
label to which GOTO may branch 


Transfer 


Control 
oc ran) 
Pelele| © [e]#fejele| 2] 2 Je [> [elelelelele [ele [= [2 [> [eelele |e [eleleleleie} fener | 


Control ZIP Initialize System commands 
Function 
Lookup LOKUP Table or array lookup 
Operations 
Sub BEGSR Beginning of the subroutine 
houL TAGs ENDSR End of the subroutine 
EXSR Call to execute the subroutine 
Program FORCE Forcing record to be read next 
oe EXCPT Causes output 
Input DSPLY A field is printed on the console printer and/ 
and or data is entered via the console printer into 
Out put a field 
READ A record is read from a demand file 
CHAIN A record is read from a disk file 
Debug DEBUG Aid in finding programming errors 
Operation 
NOTES 
0 - Optional 
R~- Required 
B- Blank 
EI -~ Only the Equal Indicator columns may be used. The 


indicator will be turned on if end-of-file occurs on 
the demand file while reading or attempting to read. 
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ADD 


SUB 


MULT 


DIV 


MVR 
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This operation adds the contents of FACTOR 2 to the contents of 
FACTOR 1 and stores the sum in the RESULT FIELD. FACTOR 1 and FACTOR 
2 are not affected by this operation, unless one of them is also des~ 
ignated as the RESULT FIELD. HALF ADJUST may be specified. 


This operation subtracts the contents of FACTOR 2 from the contents 

of FACTOR 1 and places the difference in the RESULT FIELD. FACTOR 1 
and FACTOR 2 are not affected by this operation, unless one of them 

is also designated as the RESULT FIELD. 


Note that subtracting two fields which are the same gives the same 
result as clearing the RESULT FIELD to zero, and can be used as a 
method of clearing fields to zero. 


This operation multiplies the contents of FACTOR 1 by the contents of 
FACTOR 2 and stores the product in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 
also designated as the RESULT FIELD. HALF ADJUST may be specified. 


Table 9-2 provides an example of the contents of the RESULT FIELD 

for the multiplication operation, showing various field lengths and 
decimal positions. In the example, all fields that are permitted are 
shown, although some contain incomplete results. Fields not permitted 
are blank; HALF ADJUST is not specified. Note that a field length of 
eight with five decimal positions gives all the significant digits 
without adding zeros either left or right. 


This operation divides the contents of FACTOR 1 by the contents of 
FACTOR 2 and places the quotient in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 
also designated as the RESULT FIELD. 


Any remainder resulting from the divide operation will be lost unless 
the next operation specified is the MOVE REMAINDER operation (MVR); 
if so, the result of the divide operation cannot be half adjusted. 


If FACTOR 2 is equal to zero, the operator is notified and the program 
discontinues. 


This operation moves the, REMAINDER from a previous DIV operation to 
the designated RESULT FIELD. The MVR operation must immediately 
follow the DIV operation, and FACTOR 1 and FACTOR 2 must be left blank. 
The RESULT FIELD for the' MVR operation must be the same length as 
FACTOR 2 for the DIV operation; if the RESULT FIELD is shorter, trun 
cation may occur. Both the DIV and the MVR may be conditioned on in- 
dicators, which need not be the same for both operations. However, 

the programmer must ensure that the MVR operation is never performed 
without the DIV, otherwise the result of the MVR is undefined. HALF 
ADJUST must not be specified. 
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Table 9-2. RESULT FIELD Contents for Various Field Lengths 
and Decimal Positions ~ MULT Operation 


Decimal Positions 


JS CE 2 TJ OS I SE 
ST 
hee ee ee 192.5467 92.54672 2.546720 - 5467200 

a [ew | ewe. | ie ef su ef oon. ser| sow] sees owe| ere | 
[= | oo00osse | —ooooeiee.« | eoooxess4| oooien se| ooien.sac7| oien.sasta| aen.sasr20| e2.steT200| 2. euera000| .sae7a000| 
[ie [ooooesies | eooocese, [e005 | oo0nse.s4] vores sur | oie. swre [ove sarz0 | 152 saraoo] sa sxeT00 [354670000 | 


NOTE 


RESULT FIELD contents for the multiplication 
operation: 89.67 MULT 2.148. 


The following considerations should be made when specifying the size 
of the RESULT FIELD: 


ae The number of significant decimal places in the REMAINDER is 
the larger of: © 


1) The number of decimal positions in FACTOR 1 of the 
previous DIV operation. 


2) The sum of the decimal positions in FACTOR 2 and the 
RESULT FIELD of the previous DIV operation. 


b. The maximum integer positions in the REMAINDER equals the 
integer positions in FACTOR 2 of the previous DIV operation, 


c. The RESULT FIELD must not be a whole array. 


Figure 9-5 provides a DIV and MVR coding example. 


CALCULATION SPECIFICATIONS 


HALF ADJUST 
DECIMAL POSITIONS 


FACTOR 1 OPERATION FACTOR 2 


FIELD 
LENGTH 


Gi4056 


Figure 9-5. DIV and MVR Coding Example 


SQRT The operation derives the SQUARE ROOT of the contents of FACTOR 2 
and places it in the RESULT FIELD. FACTOR 1 must be left blank. 


To obtain reasonable precision from SQRT, the following points should 
be observed: 


ae For every digit left of the decimal place in the RESULT FIELD, 
there should be two digits left of the decimal placed in 
FACTOR 2. 


b. For every digit right of the decimal point in the RESULT 


FIELD, there should be two digits right of the decimal point 
in FACTOR 2. 
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The result of the SQRT operation is automatically adjusted; therefore, 
a HALF ADJUST entry for SQRT is not allowed. 


If the FACTOR 2 operand is negative, the program will display a "SQRT" 
error message and halt. The operator may resume processing, in which 
case the RESULT FIELD will set to zero. 


Table 9-3 provides an example of the contents of the RESULT FIELD 

for the square root operation. In the example, all fields that are 
permitted are shown, although some contain incomplete results. Fields 
not permitted are blank. 


XFOOT This operation is used to crossfoot total the elements of a numeric 
array. All the elements of the array specified by FACTOR 2 are summed 
and the total placed in the RESULT FIELD. FACTOR 1 must be left blank. 
RESULT FIELD must not be a whole array. 


Resulting indicators may be specified. If the RESULT FIELD is an 
element of the array named in FACTOR 2, the value of that element 
before the XFOOT operation is used in obtaining the total. HALF 
ADJUST may be specified. 


Z—-ADD This operation sets the RESULT FIELD to zeros, and adds the contents 
of FACTOR 2 to the RESULT FIELD. FACTOR 1 must be left blank. 
FACTOR 2 is not affected by this operation. HALF ADJUST may be speci~ 
fied. 


Note that this is equivalent to a right~adjust numeric move with the 
zero~fill and/or truncation. 


Z—-SUB This operation sets the RESULT FIELD to zeros, then subtracts the 
contents of FACTOR 2 from the RESULT FIELD. FACTOR 1 must be left 
blank. This operation is used to change the sign of the field desig~- 
nated by FACTOR 2. HALF ADJUST may be specified. 


Note that this is the same as Z-ADD, but the sign is changed. 


In the example shown in figure 9-6, if the contents of FIELDA equals 
678.9321, then the contents of FIELDB will equal 000678.93, and the 
contents of FIELDC will equal ~000678.93. 


MOVE OPERATIONS 


MOVE operations transfer the contents of FACTOR 2 to the RESULT FIELD. FACTOR 
2 is not affected by these operations. FACTOR 1 must be left blank. RESULT- 
ING INDICATORS may not be specified. If FACTOR 2 and RESULT FIELD are identi- 
cal (same length), MOVE and MOVEL operate the same. FACTOR 2 may be a field 
or literal; however, a RESULT FIELD may be a field or a vector. 
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Table 9-3. RESULT FIELD Contents for Various Field Lengths 
and Decimal Positions - SQRT Operation 


Decimal Positions 


7213 


54.721 4.7213 


054.721 54.7213 
0054.721 054.7213 


00054.721 


NOTE 


RESULT FIELD contents for the square 
root operation: SQRT 2994.42. 


CALCULATION SPECIFICATIONS 


HALF ADJUST — 
DECIMAL POSITIONS 


OPERATION FACTOR 2 RESULT FIELD 


LENGTH 


G14057 


Figure 9-6. Z-ADD and Z-SUB Coding Example 


An array name may be entered in FACTOR 2 as long as the RESULT FIELD also 
specifies an array. In this case, the designated move operation will be per- 
formed on each element of the array designated in FACTOR 2, with the result 
being placed in the corresponding elements of the array designated in the 
RESULT FIELD. The operation is terminated when the end of the shorter array 
is reached. If RESULT FIELD is an array and FACTOR 2 is not, then the desig- 
nated move operation will be performed on FACTOR 2, with the result being 
placed in all elements of the RESULT FIELD array. 


For the purpose of MOVE, MOVEL, the ''sign"' of the variable is defined as (1) 
the algebraic sign if the variable is numeric, or (2) the low order zone if 
the variable is alphanumeric. 


Move operations may be specified between fields of different data types. This 
will convert an alphanumeric to a numeric and vice versa, Decimal points are 
ignored in all move operations. HALF ADJUST may not be specified with MOVE 

or MOVEL. 


MOVE This operation moves characters from FACTOR 2 to the RESULT FIELD, 
starting with the rightmost character and continuing until either the 
source field is exhausted, or the destination field is filled. The 
sign of FACTOR 2 is moved to the sign position of the RESULT FIELD. 


When an alphanumeric~to~numeric move is specified, the digit portion 
of each character is moved to the RESULT FIELD. Blanks are trans- 
ferred as zeros. The zone portion of the rightmost alphanumeric char- 
acter is used as the sign of the RESULT FIELD. 


When a numeric~to~alphanumeric move is specified, each digit is con- 
verted to its corresponding internal character code as it is moved 
to the RESULT FIELD. The sign of the numeric field is placed in the 
zone of the rightmost character. 


MOVE operations are shown in table 9-4, 


Table 9-4, MOVE Operations 


Contents of Numeric 
RESULT FIELD 


Contents 
of 
FACTOR 2 


Contents of Alphanumeric 
RESULT FIELD 


_After MOVE 
/. Operation 


Before MOVE 
Operation 


Before MOVE 
Operation 


After MOVE 
Operation 


AB4SK +123456789 -123412422 123456789 1234AB4SK 
+98 76543 +123456789 +129876543 ABCDEFGHI AB987654C 
GEBKLM4SK +56789 ~34422 ABCDE LM4SK 
-9876543 +56789 -76543 ABCDE 7654L 
AB4SK +56789 712422 96789 AB48SK 


~87654 +12345 ABCDE 8765M 


MOVEL This operation moves, left-justified, characters from FACTOR 2 to 
the RESULT FIELD, starting with the leftmost character and continuing 
until either the source field is exhausted, or the destination field 
is filled. 


When a numeric to alphanumeric move is specified, each digit is 
converted to its corresponding internal character code as it is moved 
to the RESULT FIELD. 


When an alphanumeric~to=numeric move is specified, only the digit 
portion of each character is moved to the RESULT FIELD. Blanks are 
transferred as zeros. 


The sign is transferred only if the RESULT FIELD is numeric and not 
greater in length than FACTOR 2 or if the result is alphanumeric and 
equal in length to FACTOR 2. The sign of FACTOR 2 is the algebraic 
sign if it is a numeric data item or low order zone if FACTOR 2 is 
alphanumeric. 


MOVEL operations are shown in table 9-5. 


MOVE ZONE OPERATIONS 


Move zone operations are used toimove the zone portion of only one character, 
FACTOR 2 is not affected by this operation, and only the zone portion of one 
character of the RESULT FIELD is affected. FACTOR 1 must be left blank. HALF 
ADJUST and resulting indicators mus t not be specified. 


For the purpose of move zone operations, the "zone" of a variable is defined 
as (1) the algebraic sign, if the variable is numeric; or, (2) the low-order 
or high-order zone, if the variable is alphanumeric. For a numeric field only 
the low zone, which is defined as the sign position, may be referenced. 
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Table 9-5. MOVEL Operations 


Contents Contents of Numeric Contents of Alphanumeric 
of RESULT FIELD RESULT FIELD 


FACTOR 2 
Before MOVEL After MOVEL Before MOVEL After MOVEL 
Operation Operation Operation Operation 


-78.425 +567 ,84 -784,.25 ABCDE 7842N 
PH4SK +56789 -78422 ABCDE PH4SK 
-000008425 +5.6789 -0.0000 ABCDE 00000 
BRWCXH4SK +56789 -29637 ABCDE BRWCX 
-78425 +1.30943210 +7,84253210 ABCDEFGHI 7842NFGHI 
GEBSN -730943210 —-752553210 ABCDEFGHI 


GEBSNFGHI 


An array name may be entered in FACTOR 2, as long as the RESULT FIELD also 
specifies an array. In this case, the designated move zone operation will be 
performed on each element of the array designated in FACTOR 2, with the re- 
sult being placed in the corresponding elements of the array designated in 
the RESULT FIELD. The operation is terminated when the end of the shorter 
array is reached. 


If the RESULT FIELD is an array, but FACTOR 2 is not, the zone from FACTOR 2 
is moved into the appropriate position in all elements of the array. 


Each of the move zone operations is discussed in the following paragraphs. 


MHHZO This operation moves @he zone from the high-order (leftmost) position 
of FACTOR 2 to the high-order (leftmost) position of the RESULT FIELD. 
Both FACTOR 2 and RESULT FIELD must be alphanumeric (see figure 9-7). 


Tae Pues Oe Pe me ee a 


ALPHANUMERIC FACTOR 2 ALPHANUMERIC RESULT FIELD 


614088 


Figure 9-7. MHHZO Move Zone Operation 


MHLZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, 
this operation moves the zone from the high-order (leftmost) position 
of FACTOR 2 to the low-order (rightmost) position of the RESULT FIELD. 
If FACTOR 2 is alphanumeric and the RESULT FIELD is numeric, this 
operation moves the high-order (leftmost) position of FACTOR 2 to the 
sign position of the RESULT FIELD. FACTOR 2 must be alphanumeric 
(see figure 9-8). 
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Figure 9-8. MHLZO Move Zone Operations 


MLHZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone} from the low-order (rightmost) position of 
FACTOR 2 to the high-order (leftmost) position of the RESULT FIELD. 
If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
high-order (leftmost) position of the RESULT FIELD. The RESULT FIELD 
must be alphanumeric (see figure 9-9). 
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Figure 9-9. MLHZO Move Zone Operations 


MLLZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, 
this operation moves the zone from the low-order (rightmost) position 
of FACTOR 2 to the low-order (rightmost) position of the RESULT FIELD. 


If FACTOR 2 is alphanumeric and the RESULT FIELD is numeric, this 
operation moves the zone from the low-order (rightmost) position of 
FACTOR 2 to the sign position of the RESULT FIELD. 


If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
low-order (rightmost) position of the RESULT FIELD. 


If FACTOR 2 is numeric and the RESULT FIELD is numeric, this operation 


moves the zone from the sign position of FACTOR 2 to the sign position 
of the RESULT FIELD (see figure 9-10). 
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Figure 9-10. MLLZO Move Zone Operations 


COMPARE OPERATIONS 


These operations are used to test specified fields for certain conditions. 
The results of these operations are shown by the setting of the specified 
RESULTING INDICATOR (017-99, LI-L9, LR, HO-H9, OA-OG, OV). FACTOR 1 and 
FACTOR 2 are not affected by the operation. At least one RESULTING IN- 
DICATOR must be specified. The RESULT FIELD must be blank. HALF ADJUST 
must not be specified. FACTOR 1 and/or FACTOR 2 must not be a whole array. 


COMP This operation compares FACTOR 1 with FACTOR 2, causing the 
RESULTING INDICATORS to be set as follows: 


a. HIGH (columns 54-55) - FACTOR 1 > FACTOR 2 

b. LOW (columns 56-57) - FACTOR 1 < FACTOR 2 

ce. EQUAL (columns 58-59) - FACTOR 1 = FACTOR 2 
Both fields must be of the same type. 


Comparison of Numeric Fields 


The comparison of numeric fields is based on their respective values 
considered purely as signed numeric quantities. The length of the 
fields, in terms of digits, is not itself significant. Both fields 
are automatically aligned on their decimal points, and leading or 
trailing zeros are supplied, as needed, to make the lengths identical. 


TESTZ 


Comparison of Alphanumeric Fields 


The comparison of alphanumeric fields begins with the leftmost char- 
acter of each and proceeds, character-by~character, to the right until 
a pair of unequal characters is encountered. These characters are 
compared according to the EBCDIC collating sequence, and the field 
that contains the character found to be higher in the collating se- 
quence is considered to be the HIGH field (see Appendix A). 


If the character-by-character comparison reaches the end of the fields, 
they are considered to be EQUAL. 


Both fields are automat ically aligned on their leftmost characters, 
and trailing spaces are supplied to the shorter field. 


This operation tests thei ZONE portion of the leftmost character of 
the RESULT FIELD, setting the specified RESULTING INDICATOR (01-99, 
L1I-L9, LR, HO-H9, OA-OG, OV) to the results of the test. FACTOR 1 
and FACTOR 2 must be blank. HALF ADJUST must not be specified. The 
RESULT FIELD must not be a whole array. 


If the RESULT FIELD is alphanumeric, the character under test will 
set a specific RESULT INDICATOR according to the following: 


Character Under Test RESULTING INDICATOR Set 
A-I, & PLUS (columns 54-55) 
J-Ry. = MINUS (columns 567-57) 
All Others ZERO (columns 58-59) 


If the RESULT FIELD is numeric, the PLUS (columns 547-55) or MINUS 
(columns 56757) indicator will be set according to the sign of the 
field. A ZERO indicator must not be spe@ified for a numeric field. 
Note that TESTZ is essentially a zone portion test and will differen- 
tiate between +0 and -O. If the programmer wishes to test for greater 
than, less than, or equal to zero, he should use a compare (COMP op- 
code) against zero, instead of TESTZ. 


BINARY FIELD OPERATIONS 


Three operation codes, BITON, BITOF , and TESTB, are provided to set and test 
individual bits. The individual bits can be used as switches in a program. 


In binary field operations the operation codes BITON, BITOF, or TESTB are used. 
FACTOR 2 may contain either of the following: 
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BITON 


Bit values 0-7. One or more bits (maximum of eight) may be set ON, 
set OFF, or tested per operation. The bits are numbered from left 

to right and are enclosed in apostrophes. The order of specification 
of the bits is not restricted. Bits not specified in FACTOR 2 are 
not changed. 


The name of a one~position, alphanumeric field or table, or array 
element. In this case, the bits which are on in the field or array 
element are set ON, set OFF, or tested in the RESULT FIELD; bits 
which are not ON are not affected, 


This operation code causes bits identified in FACTOR 2 to turn ON 
(set to one) in a previously defined field named as the RESULT FIELD. 
The operation code BITON must appear in columns 28-32. Conditioning 
indicators can be used in columns 7-17. Any entry under FIELD LENGTH 
must be 1. 


FACTOR 1, DECIMAL POSITIONS, HALF ADJUST, and RESULTING INDICATORS 
are not used with the BITON operation (see figure 9-11). 


CALCULATION SPECIFICATIONS 
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DECIMAL POSITIONS 


Resulting 
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Figure 9-11. Binary Field Operations Coding Examples 


BITOF This operation code causes bits identified in FACTOR 2 to turn OFF 
(set to-zero) in a previously defined field named as the RESULT FIELD. 


The operation code BITOF must appear in columns 28-32. All other 
specifications are the same as those for the BITON operation (see 
figure 9-11). 


TESTB This operation code causes bits identified in FACTOR 2 to be tested 
for an ON or OFF condition in the previously defined field named as a 
RESULT FIELD, setting the specified RESULTING INDICATOR to the result 
of the test. All other specifications are the same as those for BITON 
and BITOF. 


At least one RESULTING INDICATOR must be used with the TESTB opera~ 
tion; as many as three can be named for one operation. Two indicators 
may be the same for one TESTB operation, but not three. If FACTOR 2 
contains bits which are all OFF, no RESULTING INDICATORS are turned 
ON. RESULTING INDICATORS have the meanings described in the follow- 
ing paragraphs. 


Columns 54-55 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is OFF (0) in the Result Field. 


Columns 56-57 


An indicator in these columns is turned ON if two or more bits were 
tested and found to be of mixed status; that is, some bits ON and other 
bits OFF. It is important to ensure that the field named in FACTOR 2 
contains more than one bit which is ON if an indicator appears in 
columns 56757. 


Columns 58-59 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is ON (1) in the Result Field. 


The following explanations refer to figure 9-11. 
a. Bits 1234 are turned ON in the field named BITA. 


b. Bits that are ON in the field named ITEMA will cause the 
corresponding bits in the field named BITB to be turned ON. 


c. Bits that are OFF in the field named ITEMB will cause the 
corresponding bits in the array element ARR, XY to be turned 
OFF. Then bits 1, 2, 3 will be turned off in array element 
ARR,XY, and finally the bits that are off in ARR,XY will be 
turned off in the array element TBL,20. 


d. If bits 0, 5, ahd 7 are OFF in the field named BITC, indicator 
10 will be turned ON. If bits 0, 5 and 7 are of mixed status 
in the field named BITC, indicator 12 will be turned ON. If 
bits 0, 5, and 7 are ON in the field named BITC, indicator 12 
will be turned ON. 
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SETTING INDICATORS 


Up to three indicators may be set ON or OFF with one operation. These may be 
entered in the RESULTING INDICATORS field. FACTOR 1, FACTOR 2, HALF ADJUST, 
and the RESULT FIELD must be left blank. The following rules must be observed 
when setting indicators: 


a. 


b. 


SETON 


SETOF 


The following indicators may not be set ON or OFF: 1P, MR, LO, or 
U1-U8. 


Setting a control level indicator (L1-L9) ON or OFF does not affect 
any other control level indicator. 


All control level and record identifying indicators are automatically 
turned OFF after detail output operations are completed, regardless 
of any previous SETON or SETOF operations, 


If any halt indicators (HO-H9) are set ON and are not turned OFF 
before the detail output operations finish, the program will halt. 


If the LR indicator is turned ON by a SETON operation which is 
conditioned by a control level indicator (columns 77-8 on Calculations 
Specifications form), the program will stop after all total output 
operations are completed. If the LR indicator is turned ON by a 
SETON operation which is not conditioned by a control level indi-~ 
cator, the program stops after the next total output operation is 
completed, 


This operation sets the indicators entered in the RESULTING INDICATORS 
field ON. 


This operation sets the indicators entered in the RESULTING INDICATORS 
field OFF. 


PROGRAM BRANCHING OPERATIONS 


Operations within the Calculation Specifications are normally performed in 
the order in which they are written. Branching operations allow variation 
of the order of operation; thus, conditional branching and repetitive opera- 
tions are possible. 


GOTO 


TAG 


This operation causes the program to branch (GOTO) to some other 
instruction rather than "falling through" to the next sequential 
operation. Branching both forward and backward is allowed. Branch 
ing to a TOTAL CALCULATION from a DETAIL CALCULATION and vice versa 
is allowed. Branching into or out of subroutines is not allowed. 


FACTOR 2 must contain a label (which must be defined elsewhere in the 
program as a TAG) which must follow the rules for formation of labels 
as described in Section 2. Columns 18727 and 39-59 must be blank. 


This operation is used to identify the point where a GOTO operation 
will branch. FACTOR 1 must contain a unique label (TAG) which must 
follow the rules for formation of labels as described in Section 2. 


Conditioning by a control level indicator in columns 7-8 is permissible 
if the TAG is part of TOTAL CALCULATIONS. The INDICATOR field 

(columns 9-17) must be left blank. Columns 33-59 and 24-27 must be 
blank. 


TRANSFER CONTROL FUNCTION 


This operation causes the MCP to execute a control instruction within the 
operating RPG object program. The MCP control instructions which may be 


specified are system dependent. Refer to the B 1700 System Software Opera~ 
tional Guide, Form No. 1068731. 


ZIP The operation code ZIP causes the MCP to execute the control instruc” 
tion contained in FACTOR 2. FACTOR 2 may be a field name or vector 
name, previously defined, or a meaningful alphanumeric literal enclosed 
in apostrophes. The operation may be conditioned by the conditioning 
indicator. All other fields must be left blank. The information con- 
tained in FACTOR 2 must be a valid MCP Control Statement. The con7 
tents of FACTOR 2 must not exceed a maximum of 511 alpha characters. 


ZIP may be used for programmatic scheduling of object programs con- 
tained in the Disk Directory, or ZIP may be used to accomplish any of 
the MCP control functions performed through the console printer (SPO) 
or card reader. 


In the example shown in figure 9-12, the field DATA contains the 
alphanumeric information, "EX JOB10". EX JOBI10O is a control instruc” 
tion. When the priority for JOB10O is recognized once memory space be~ 
comes available, the MCP will retrieve JOB10 from the Disk Directory 
and place it in the MIX for subsequent operation. 


The program containing the ZIP operation will proceed to the next se~ 
quential instruction following the ZIP operation, without waiting for 
the execution of the program JOB10. 


The example of a literal in FACTOR 2, shown in figure 9-13, will 
cause the same action. 


LOOKUP OPERATIONS 


The lookup operation is used to search a table or array (vector) for a special 
element. 


LOKUP This operation is used to search a vector for a particular data item. 
The vector name is entered in FACTOR 2. FACTOR 1 is used to name a 
search word (data for which it is desired to find a match in the 
vector). The LOKUP operation causes the designated vector to be 
searched in an attempt to find an element that matches the search 
word. 
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Figure 9-13. The ZIP Operation Using a Literal 


The search word may be an alphanumeric or numeric literal, a field 
name, an array element, or a table name. If it is a table name, it 
refers to the element of the table last selected in a LOKUP operation, 
and not to the whole table. 


The word must be of the same length and type as each element of the 
vector being searched. No decimal alignment is performed. 


The RESULT FIELD is used only if two vectors are to be specified in 
the LOKUP operation. 


RESULTING INDICATORS must always be assigned to a LOKUP operation 
specification, and are used to indicate the type of vector search 
desired, as follows: 


ae An indicator assigned to EQUAL (columns 58-59) specifies 


that the vector is to be searched starting from the first 
entry for an item equal to the search word. 
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b. An indicator assigned to HIGH (columns 54-55) specifies that 
the vector is to be searched for the item that is nearest 
to but higher in sequence than the search word. The first 
such entry found causes the indicator assigned to HIGH to 
turn ON. 


c. An indicator assigned to LOW (columns 56757) specifies that 
the vector is to be searched for the item that is nearest to 
but lower in sequence than the search word. The first such 
entry found causes the indicator assigned to LOW to turn ON. 


The following rules must be observed when assigning RESULTING INDICATORS 
to a LOKUP operation: 


ae At least one RESULTING INDICATOR must be assigned, but more 
than two are not allowed. 


b. If two RESULTING INDICATORS are assigned, one of them must 
be assigned to EQUAL. The program then searches for an item 
that satisfies either condition with EQUAL given precedence; 
that is, if no EQUAL entry is found, then the nearest low or 
higher entry satisfies the search. 


ce. <Any search operation for other than an EQUAL condition (LOW, 
HIGH, LOW and EQUAL, HIGH and EQUAL) is allowed only if the 
vector was specified as having ascending or descending se~ 
quence on the Extension Specifications. The search algorithm 
assumes that the vector is in the specified sequence; a vector 
out of sequence will cause undefined results. 


d. If the search is successful, the RESULTING INDICATOR desig~ 
nating the type of search is turned ON. If two indicators 
are assigned, only the one indicating the comparison of the 
search word and the vector element will be turned ON. 


e. If no element of the vector being searched satisfies the 
conditions, no RESULTING INDICATOR will be turned ON. 
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A LOKUP operation may begin searching a vector at some element other 
than the first by assigning a numeric literal or data item to the 
vector as an index. The search will start at the designated element 
and continue until the desired item is found or the end of the vector 
is reached. If the search is unsuccessful and the index is a data 
item rather than literal, the index will be set to one. If the search 
is successful, the index will contain the number of the element which 
satisfied the designated conditions. If a literal is used as an index, 
it will not be changed to indicate the search result. The value of a 
literal index must be integral, not less than one or greater than the 
number of elements of the vector. If at run-time, the value of a data 
item index violates the above rules, the program will be terminated 


(see figure 9-14). 
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Figure 9-14. LOKUP Coding Example ~- Using an Index 


Single-Vector LOKUP 


When searching only on vector, FACTOR 1 (the search word), FACTOR 2 
(the vector to be searched), and at least one (but not more than two) 
RESULTING INDICATORS must be specified. CONTROL LEVEL and condi- 
tioning indicators may also be used. The RESULT FIELD must be left 
blank. HALF ADJUST must be left blank. 


If the search is successful, the proper RESULTING INDICATOR is 
turned ON to indicate the comparison that caused the search to 
terminate. For a table, the "hold pointer" for the table is set 
to point to the element that satisfied the conditions and the 
contents of that element are moved into the hold area. 


If the table name is used in an operation other than LOKUP, the table 
name really refers to the contents placed in the hold area by the 
last successful search. In this case, the contents of the hold area 
are changed by the calculation operation (see figure 9-15). 
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Figure 9-15. Using a Table in an Arithmetic Operation After LOKUP 


If a data item is assigned to the vector as an index, it will contain 
the number of the element that satisfied the conditions. For an 
array, the element is not saved in a hold area; the index only points 
to the location of the element in the array. 


If the search is not successful, no RESULTING INDICATORS are turned 
ON. If FACTOR 2 is a table name, the hold area is not affected, 
but the hold pointer is set to point to the first element of the 
table, If FACTOR 2 is a vector with a data item assigned as index, 
the index is set to l. 


Two-Vector LOKUP 


When searching two vectors, FACTOR 1 (the search word), FACTOR 2 
(the vector to be searched), the RESULT FIELD (a corresponding or 
related vector), and at least one (but not more than two) RESULTING 
INDICATORS must be specified. CONTROL LEVEL and conditioning IN- 
DICATORS may also be used (see figure 9-16). 
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Figure 9-16. LOKUP Coding Example - Two Vectors 


When two vectors are specified in a LOKUP operation, only the vector 
named in FACTOR 2 is actually searched. If the search is successful, 
the proper RESULTING INDICATOR is turned ON to indicate the compari-~ 
son that caused the search to terminate. For tables with no index, 
the hold pointers for the tables are set to point to the corresponding 
elements from the tables, and the contents of those elements are moved 
to the hold areas. If a data item is assigned to either vector as an 
index, it will contain the number of the element that satisfied the 
conditions. For arrays, there are no hold areas or hold pointers; 

the indices point only to the locations of the elements in each array. 


If the search is unsuccessful, the hold areas for tables are un- 
changed, For tables (with no index assigned), the hold pointer is 
set to point to the first element of the table. For vectors with an 
index assigned, the index is set to l. 


The vectors specified in a LOKUP operation need not be of the same 
type (i.e., both tables or both arrays). Each will be handled 
properly, with updating of indices and hold area pointers performed 
as appropriate, 


If the search is not successful, no RESULTING INDICATORS are turned 
ON, the hold area pointers are not affected, and any indices assigned 
are set to one, 


An index error condition may occur during execution if the vector 
designated in the RESULT FIELD has fewer elements than the vector 
designated in FACTOR 2. 


SUBROUTINES 


Subroutine operation codes are used only to delimit the beginning and end of 

a subroutine, or to call a subroutine for execution from some point in the 
program, Specification lines within a subroutine must contain the entries SR, 
OR, AN, or blank in the CONTROL LEVEL field (columns 77-8), and all subroutines 
must be the last operations specified in the Calculation Specifications. The 
recursive use of subroutines is allowed but not recommended. Subroutines may 
not be nested in the Source Language, e.g., BEGSR cannot appear in a subroutine. 
Subroutines may not reference themselves. Refer to figure 9-17. 
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Figure 9-17. Subroutine Coding Examples 


BEGSR This operation code is used to indicate the beginning of a subroutine. 
FACTOR 1 must contain the name of the subroutine, which must follow 
the rules for formation of labels as described in Section 1. Columns 
33-59, and 24-27 must be blank. 


ENDSR This operation code is used to indicate the end of a subroutine. 
FACTOR 1 may contain a label. This label is used like a TAG, as a 
point for a GOTO operation within the subroutine to branch, thus 
allowing exits from different points within the subroutine. Columns 
33-59 and 24-27 must be blank. 


EXSR This operation causes execution of a subroutine, and may appear any- 
where within the Calculation Specification. When execution of the 
subroutine is completed,) control returns to the next line following 
the EXSR operation. 
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The EXSR operation may be conditioned by an indicator, allowing the 
subroutine to be executed (called) only when all the conditions are 
satisfied. FACTOR 2 must contain the name of the subroutine being 
called, which must be the same name entered in FACTOR 1 of a BEGSR 
operation. FACTOR 1 and columns 39-59 must be left blank. 


PROGRAMMED CONTROL OF INPUT AND OUTPUT 


Under the normal B 1700 RPG program cycle, a record is read, calculations are 
performed (using the data from that input record), and an output record is 


written. 
control 
records 


The CHAIN, DSPLY, EXCPT, FORCE, and READ operations allow greater 
over input and output, providing the capability to read and write 
at times other than those normally available as part of the B 1700 


RPG program cycle. 


CHAIN 


This operation positions the actual key for a CHAINED disk file during 
calculations so that a record will be read from or written into the 
proper location. It is used for random processing of a direct or in- 
dexed file. 


The RESULT FIELD, FIELD LENGTH, DECIMAL POSITIONS, and HALF ADJUST 
fields must be left blank. Indicators in columns 77-17 may be assigned. 
If the chained file is conditioned by an external indicator in the File 
Description Specifications, the CHAIN operation should be conditioned 
by the same indicator, otherwise the object program must automatically 
suppress the CHAIN operation if that external indicator is not set ON. 
FACTOR 1 must not be a whole array. 


The HIGH subfield (columns 54-55) of the RESULTING INDICATORS field 
may contain an entry. If the designated record is not found on a 
read, the specified indicator will turn ON. If no indicator is speci- 
fied and the record is not found, then the program will be terminated. 
The LOW and EQUAL subfields (columns 56-59) should be left blank. 
However, the LOW subfield may contain an entry; if so, it must be the 
same as the entry in the HIGH subfield. 


If the filename in FACTOR 2 has packed keys, FACTOR 1 must be numeric. 
FACTOR 1 of the CHAIN operation must be the same length when packed 
as the record key in the file named in FACTOR 2. 


If column 31 on the File Description Specifications contains either 
an A or K and FACTOR 1 is a numeric identifier, the key comparison 
will be done in numeric mode. If more than one chaining operation is 
performed on the same file and any one of the operations is numeric, 
then all chaining operations on that file will be numeric. 
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Direct Files 


FACTOR 1 must contain the actual key (relative record number), either 
as a numeric literal (which must be integral and not less than 1) or 
as the name of a numeric field (which must be integral) that contains 
the key. FACTOR 2 must contain the filename for the file from which 
the record will be read. This file must be described as a direct 
chain file on the File Specification. 


The actual key specified will be converted automatically to an ab- 
solute disk address, from which location the input record will be 
read. If the designated key points to a record outside the limits 
of the file, the indicator specified in columns 54-55 will turn ON 
and the record will not be read. 


Indexed-~Sequential Files 


FACTOR 1 must contain the name of the data key, the field that will 
be compared against the index,and the KEY FIELDS in the data file, 
in order to locate the desired record. FACTOR 1 may be alphanumeric 
or numeric. FACTOR 2 must contain the filename for the file from 
which the record will be read. The filename must have been declared 
on the File Specifications as a chained indexed disk file. 


The data key specified will be compared to the entries in the index, 
which will point to a portion of the file on disk. That portion of 
the file pointed to by the index will be searched until the data key 
matches the KEY FIELD of the data record. If the desired record 
cannot be located in the file, the indicator specified in columns 
54-55 will turn ON and no record will be read. (If no indicator is 
specified then the program will be terminated.) 


The field length of FACTOR 1 must be the same as the key length speci- 
fied for the file on the File Description Specifications. Note that 
if FACTOR 1 is a literal, leading zeros or trailing blanks may be re- 
quired to achieve this. 


The following paragraphs discuss how the CHAIN operation functions for each 
of the file types (input, output, and update). 


Chained Input Files 


For chained files declared as input, the CHAIN operation causes a 
record to be read during calculations. The desired record must be 
identified to the program, sc that the proper input data will be made 
available from disk. For direct files, an actual key (relative re- 
cord number) is used; for indexed files, a data key is used. 


Chained Output Files 


The CHAIN operation is applicable to direct output files only; it is 
not allowed for indexed files. 


For chained files declared as output, the CHAIN operation causes the 
proper disk address to be generated for writing the output record 
during normal output operations. The desired record location must 

be made available prior to output, so that the record will be written 
into the proper place in the file. 


Direct output files are handled in the same manner as direct input 
files, except that no record is read or written. Only the disk ad- 
dress to be used for output is generated. If the designated key 
points to a record outside the limits of the file, the indicator 
specified in columns 54-55 will turn ON, and the output operation 
is inhibited. 


Chained Update Files 


For chained files declared as UPDATE, the CHAIN operation causes a 
record to be read during calculations, and saves the disk address 
from where the record was read. This address is used during output, 
causing the updated record to be written back into the same loca- 
tion from which it was read, 


Direct update and indexed update files are handled in the same manner - 
as their respective input files. The disk address is saved for use by 
the output operation, to cause the record to be written back into the 
same location in the file. 


DS PLY This operation causes data to be displayed on the console printer 
(SPO) or provides for certain low volume data entries to be entered 
by the systems operator through the console printer. The file name 
of the file assigned to the console printer must be entered in FACTOR 
2. The HALF ADJUST and RESULTING INDICATORS fields must be left 
blank, Control level and conditioning indicators may be assigned. 
FACTOR 1 is optional and may be used to name a data item, which may 
be a field name or a vector element, or to specify a literal (nu- 
meric or alphanumeric). The RESULT FIELD is optional and may be 
used to specify the name of a data item (field name or vector ele- 
ment). If the RESULT FIELD is used, the systems operator must 
respond on the console printer, If both FACTOR 1 and the RESULT 
FIELD are blank, a syntax error is emitted. 


The DSPLY operates in the following manner: 


ae If the RESULT FIELD is blank and FACTOR 1 contains a data 
item, the data item is printed on the console printer and 
the program proceeds to the next operation. (See figure 
9-18, line 2.) 


b. If the RESULT FIELD contains a data item and FACTOR 1 is 
blank or contains a data item, the data is printed on the 
console printer and an ACCEPT message will be generated by 
the MCP, to which the systems operator must respond. The 
contents of the response will be placed in the field speci- 
fied in the RESULT FIELD. For the format of the ACCEPT mes- 
sage, refer to the B_1700 System Software Operational Guide, 


Form No. 1068731. (See figure 9-18, line 5.) 
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Figure 9-18. DSPLY Operation Coding Examples 


c. If both the RESULT FIELD and FACTOR 1 contain data items, 
the data from both is printed on the console printer and 
an ACCEPT message will be generated by the MCP, to which 
the systems operator must respond. The contents of the 
response will be placed in the field specified in the 
RESULT FIELD. (See figure 9-18, line 8.) 


This operation allows EXCEPTION records to be written during calcula- 
tions. Every time the EXCPT operation is executed, all lines in the 
Output-Format Specifications with a TYPE entry (column 15) of E will 
be written (dependent, of course, on conditioning indicators). If 
this operation is specified, Exception Time Output Specifications are 
required. The EXCPT operation may have CONTROL LEVEL and condition- 
ing INDICATORS assigned; all other fields must be left blank. 


This operation enables selection of the file from which the next 
record is to be taken for processing. This specification overrides 
the normal record selection process that occurs during input. The 
FORCE operation does not actually read any records during calcula- 
tions, but only selects the file which will supply the next record 
for processing. 


READ 


The FORCE operation may apply only to input, update, or combined 
files designated as PRIMARY or SECONDARY. FACTOR 2 must contain the 
name of the file to be forced; all other fields (except conditioning 
INDICATORS) must be left blank. This operation must not occur with- 
in total calculations or in subroutines. 


If more than one FORCE operation is executed during one program 
cycle, all but the last are ignored. When End-of-File is encountered 
on a "forced" file, normal record selection processes will determine 
the next record to be provided for input. 


This operation is used to cause a record to be read from a demand 
file during calculations. This differs from the FORCE operation be~ 
cause FORCE causes input during the next program cycle, whereas the 
READ operation causes input during the current program cycle. It 
also differs from the CHAIN operation, because CHAIN is used to read 
records randomly, whereas the READ operation is used to read records 
sequentially. 


FACTOR 2 must contain the name of the file to be read. The FACTOR 1, 
RESULT FIELD, FIELD LENGTH, DECIMAL POSITIONS, and HALF ADJUST fields 
must be left blank. The READ operation may be conditioned by CONTROL 
LEVEL or conditioning INDICATORS in columns 7-17. 


An indicator should be specified in columns 58-59; if not, an End- 
of-File condition on the READ will cause the program to be discon- 
tinued. If End-of-File is reached and an indicator is specified, 
that indicator will be turned ON. Any subsequent attempts to read 
from the same file will cause that indicator to be turned ON. 


The following rules must be observed when using the READ operation: 


ae Only demand files designated as INPUT, UPDATE, or COMBINED 
may be read by the READ operation. 


b. Sequence~checking in the Input Specifications is not allowed 
for demand files. 


c. Control levels, matching fields, and look-ahead fields are 
not allowed for demand files. 


d. If a demand file is conditioned by an external indicator 
(U1-U8) which is not set, the READ operation will be ignored 
(the End~of-File indicator in columns 58-59 will not turn 
ON). 
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DEBUG OPERATION 


The DEBUG operation is a special~purpose function which simplifies the loca~ 
tion and correction of errors in an RPG Program. 


DEBUG 
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This operation causes records to be written during calculations. 

These records contain specific information which may be helpful in 
locating errors in the program. DEBUG operations may appear in as 
many places as needed within the Calculation Specifications. Every 
time the DEBUG operation is: executed, one or more fixed-format records 
will be written to an output device. One record contains a list of 
all indicators which are ON at the time the DEBUG operation is speci-~ 
fied; the other record(s) shows the contents of any one field. 


DEBUG operations will be compiled into the object program only if the 
DEBUG field of the Control Card contains a 1 (column 15). A11 DEBUG 
Operations are syntax checked during compilation. 


The file named must be defined as a sequential output file on the 

File Specifications. All DEBUG output must go to the same file. 
FACTOR 2 must contain the name of the output file on which the records 
are written. 


FACTOR 1 is optional, and may contain a literal or field name to 
identify the particular DEBUG operation being executed. 


FACTOR 1 must not be a whole array, and the size of the field must 
not exceed eight positions. The literal or the value of the desig~- 
nated field is written as part of the output records. 


The DEBUG operation may be conditioned by indicators in columns 77-17. 
Columns 49-59 must be left blank. RESULT FIELD is optional, but if 
specified it must be a field, vector, or indexed vector whose contents 
are written on the second and subsequent records. 


DEBUG Operation Output 


One or more records will be written as output from every DEBUG 
operation. The first record is always written; the second and subse~ 
quent records will be written only if the RESULT FIELD contains an 
entry. See figure 9-19 for an example of the output produced by the 
DEBUG operation. 
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Figure 9-19. 


DESUG- 1 
ARY 70001 
ARY 20002 
ARY +0003 
ARY 20004 
ARY «0005 
DESUG- 2 
ARDATA 
DESUG— 
DEBUG- 
ELEMENT 


DEBUG= 1 
ARY 90001 
ARY 90002 
ARY 20003 
ARY 30004 
ARY 90005 
DEBUG=- 2 
ARDATA 
OEBUG- 
DE3UG— 
ELEMENT 


CEBUG- 1 
2000) 
209002 
20003 
20004 
ARY 90005 
GESUG- 2 
ARDATA 
DEGUG= 
DESUG- 
ELEMENT 


CEBUG- 1 
ARY +0001 
ARY ©0002 
ARY 30003 
ARY 20004 
ARY 20005 
DEBUG= 2 
ARDATA 
DEBUG— 
OEBUG- 
ELEMENT 


DEBUG- 1 
ARY 20001 
ARY 20002 
ARY +¢003 
ARY 90004 
ARY 29005 
DEBUG= 2 
ARDATA 
DEBUG= 
DEBUG= 


OUTPUT LISTING 


INDICATORS ON-O1 
000136 
oooc00 
000000 
000000 
0000006 
INDICATORS ON-01 
000136 
INDICATORS ON-O1 
INDICATORS ON-01 


$ 1 OF ARRAY ZARY> LOADED 


INDICATORS ON-O1 
000136 
000000 
000000 
000000 
000000 : 
INDICATORS ON-Q1 
000060 
INDICATORS ON-01 
INDICATORS ON-U1 


$ 2 OF ARRAY ZARY2 LOADED 


INDICATORS ON-01 
000136 
000090 
123456 
000000 
000006 
INDICATORS ON-01 
123456 
INOICATORS ON-O1 
INGICATORS ON-01 


$ 3 OF ARRAY ZARY2 LOADED 


INDICATORS ON~01 
000136 
000000 
123456 
999599 
000000 
INDICATORS ON-O1 
999999 
INDICATORS ON-O1 
INDICATORS ON-O1 


$ 4 OF ARRAY 2ARY2 LOADED 


INDICATORS ON-01 
000135 
000000 
123456 
999999 
654321 
INDICATORS ON-0O1 
654321 
INDICATORS ON-O1 
INDICATORS ON-01 


ELEMENT $ 5S OF ARRAY 2ARY2 LOADED 


02 05 


02 05 
02 05 
02 

WITH: 


04 05 


04 05 
04 05 
us 

WITH: 


02 05 


02 05 
02 05 
02 

WITH: 


02 05 


C2 05 
C2 05 
02 

WITH: 


02 05 


02 05 


02 05 
02 
WITH: 


DEBUG Operation Output 


75 80 85 
75 85 
1.36 


75 80 8S 
75 85 
0.00 


75 80 85 
75 85 


1234.56 


75 80 85 
75 85 


9999.99 


75 80 85 
75 85 


6543.21 


LOAD ARYo1 WITH 1.36 


0.00 


LOAD ARYs2 WITH 


LOAD ARYs3 WITH 1234.56 


LOAD ARYs4 WITH 9999.99 


LOAD ARYsS WITH 6543.2] 


The first record written is in the following format: 


Record 
Position 


Via! f 

9-17 

18-31 

32-any posi- 
tion depending 
on the number 


of indicators 
ON 


DEBUG 
Blank 
The words INDICATORS ON- 


List of indicators that are 
ON, separated by blanks. 


SECTION 10 
OUTPUT-FORMAT SPECIFICATIONS 


Output-Format Specifications describe the records within each file and fields 
within each record to be used as output from the program. There are two types 
of Output-Format Specifications as follows: 


a. 


b. 


Record type descriptions (columns 7731) which define the various 
output records and their relationship to other records in the file. 
Columns 32-70 must be blank. 


Field descriptions (columns 23-70) which define each field within 
the records. Columns 7-22 must be blank. 


The first Output Specification must be a record type description, Field de- 
scription entries must start one line below the associated record type de- 
scriptions, A warning is emitted if a record type description has no 
associated field descriptions. 


FIELD DEFINITIONS 


Refer to figure 10-1 in conjunction with the following field definitions for 
the Output~Format Specifications. 


1-2 


PAGE 

Refer to Section 2 for complete description, 
LINE 

Refer to Section 2 for complete description. 
FORM TYPE 

An O must appear in this field. 

FILENAME 


This field is used to identify the file to which the subsequent record 
type and field description entries belong. The file specified must 
have been previously described on the File Description Specifications 
form as output, update, combined, or input, with an A in column 66 on 
the File Description Specifications and ADD specified in columns 167 
18 of the Output-Format Specifications. Every output file described 
in the File Description Specifications should also be described on 

the Output-Format Specifications form, but this is not required. 


If this entry is blank on a record type description, the filename of 


the previous record is assumed. The first record type description 
must not have a blank filename entry. 
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6-OT 


Cc. 


D. 


Burroughs 


PROGRAM ID 


B 1700 RPG 


PROGRAMMER 


12 OUTPUT - FORMAT SPECIFICATIONS 


PAGE [[] TYPE 


FORM TYPE 


FILENAME 
14}ts5 


BD 


BEFORE 


7-14 Contains a filename specified in the 
File Description Specifications. 


14-16 Puts the output indicators in an AND or 
OR relationship. Entries: AND or OR. 

15 Specifies the type of output record to be 
written. Entries: H, D, T or E. 


16-18 Specifies if a record is to be added 
to an indexed sequential file. Entries: 
Blank or ADD. 


16 Specifies (1) which stacker the output 
card is to be placed or (2) that the over- 
flow routine is to be invoked. Entries: 
Blank, F, or 1-N (N=number of stackers). 


17-18 Specifies forms spacing, before or 
after printing, for printer output files. 
Entries: 0 or blank, or 1-9. 


19-22 Specifies forms skipping, before or 
after printing, for printer output files. 
Entries: 0-99, AO-A9, BO-B2, or blank. 


23-31 Output Indicators: 


23, 26, 29 Indicates if the output indicator 
in columns 24-25, 27-28, or 30-31, must be 
ON or OFF. Entries: Blank or N. 


24-25, 27-28, 30-31 Contains a previously 
defined indicator which is to condition 
output. Entries: 01-99, LO-L9, LR, MR, 
HO-H9, U1-U8, OA-OG, OV, 1P, or blank. 


GI4071 


Figure 10-1. 


STACKER SELECT/FETCH OVERFLOW 


i OUTPUT INDICATORS 
E 


EOIT CODES 
FIELD NAME 
(VARIABLE 


BLANK AFTER 
END POSITION 
PACKED 


PROGRAM 
IDENTIFICATION 


X = REMOVE 

Ld Uaiaed Gee! SIGN 

Y = DATE 
FIELO EDIT 

Z = ZERO 

SUPPRESS 


; | 

me 
YH, 
YA 
VL, 

VMAS 


32-37. Contains a previously defined field 

name or vector or one of the special field 
names PAGE, PAGE1, PAGE2, *PLACE, *PRINT, 

UDATE, UMONTH, UYEAR, UDAY 


eee ee aihie 


38 Specifies the editing for a numeric output 
field when not using an edit word. Entries: 
Blank, 1, 2, 3, 4, A, B, C, D, J, K, L, M, 

X, Y, or Ze. 


39 Specifies if a variable is to be reset after 
the output operation is finished. Entries: 
Blank or B. 


40-43 Specifies the location of a field 
within an output record. Entries: 1-N 
(N=maximum record length) right-justified or 
an * in column 40, 


44 Specifies that an output field is to be 
written in packed decimal format. Entries: 
Blank or P, 


45-70 Contains constants and/or edit words, 
used to format and punctuate output records, 
enclosed in apostrophes and left~justified. 
Entries: Any valid RPG character (see text 
for uses of characters with special meanings). 


Output-Format Specifications Summary Sheet 


15 


16-18 


TYPE 


This field is used to specify the type of output record to be written. 
These records contain such information as the following: 


a. Heading records contain such information as page headings. 


b. Detail records usually contain some type of data obtained 
directly from input records and calculation operations. 
Detail records are written once during every cycle, de- 
pending upon conditioning indicators. 


c. Total records usually contain totals accumulated from a 
group of input records. Total records are written only 
during cycles in which a control break occurs, depending 
upon conditioning indicators. 


d. Exception records are written during calculation time, 
through use of the EXCPT operation code. 


Valid entries for this field are: 


Definition 


Heading records. 
Detail records. 
Total records. 


Exception records (written during 
calculation time). 


Heading records are treated in the same manner as detail records. 
The order of the output will correspond to the order in which they 
are specified, Records may be specified in any order. 


Update files are handled as field updates, not record updates; only 


the fields specified in an output record are modified. The rest of 
the record remains intact. 


If an update file has total output specified, the record update will 
be the last record read (i.e., the record that caused the Control 
Break). Exception records may be specified for a combined file, 

but this is not recommended, 

RECORD ADDITION 


If a record is to be added to an input, output, or update file, the 
following conditions apply: 


a. The file must be a disk file. 


b. The corresponding File Description Specification must have 
an A in column 66. 


c. The word ADD must be entered in columns 16718 of the record 
, type description. 


d. ADD must not be specified on an AND/OR line. 
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16 
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STACKER SELECT/FETCH OVERFLOW 
This field may be used to specify: 


a. The stacker into which the output card is to be placed after 
being punched, or 


b. That the overflow routine can be invoked at this point for a 
printer file. 


Valid entries for this field are: 


Entry Definition 
Blank Cards automatically go to 
default stacker. 
Numeric Stacker into which card type 
Entry is stacked, 
F Fetch overflow (printer 


files only). 


STACKER SELECT 


Only card output or combined files may be stacker selected. Output 
files may be stacker selected only in the Output-Format Specifica- 
tions; combined files may be stacker selected either in the Input 
or Output-Format Specifications. If a combined file is stacker se~ 
lected in both the Input and Qutput~Format Specifications, the 
Output-Format stacker specification overrides the stacker specified 
in the Input Specifications, 


Stacker selection on the basis of matching records should be speci- 
fied only for detail output lines, because the MR indicator is on 
only at detail output time to signal the matching status. Record 
types identified by OR lines may be stacker selected for a special 
stacker by an entry in this field; however, if the STACKER SELECT 
field entry is left blank, the card type selected by the OR line 
will go to the default stacker. AND lines may not have an entry in 
STACKER SELECT. 


At execution time, any record types specifying a stacker number 
higher than that available on the device being used will go to 
the default stacker. 


FETCH OVERFLOW 


If the printing of a line could cause overflow, leaving insufficient 

Space on the page to print the remaining detail, total output lines, 

or lines conditioned by the overflow indicator, FETCH OVERFLOW should 
be specified (F in column 16). 


When the overflow line is reached, the same sequence of events 
always takes place, These are described later in this section in 
the discussion on overflow indicators. Briefly, remaining detail 
lines, total lines, and overflow lines (lines conditioned by the 
overflow indicator) are printed on the page after overflow has 
occurred. 


If, however, it is desired to print overflow lines ahead of the usual 
time, a FETCH OVERFLOW routine may be specified. This may be ini- 
tiated any time after the overflow line has been reached. When over- 
flow is caused in this manner, the following actions take place: 


a. All total lines conditioned by the overflow indicator are 
printed. If skipping is specified on these lines, it oc” 
curs as defined by the user. 


b. Heading and detail output lines conditioned by the overflow 
indicator are printed. If skipping is specified on these 
lines, it occurs as defined by the user, 


ec. The line that fetched the overflow routine is printed. 


d. Any detail and/or total lines left to be printed in the 
current program cycle are printed. 


For the printer file, an F in column 16 on the Output Format Speci- 
fications specifies that the overflow routine will be fetched. An F 
can be specified for any total, detail, or exception line that is 
not conditioned by an overflow indicator. 


If a line causes the overflow indicator to turn ON, the next line 
containing an F in column 16 will cause the execution of the over- 


flow routine. When that is complete, normal printing will resume 
with the statement that fetched the overflow routine (see figure 107-2), 
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Figure 10-2, FETCH OVERFLOW Coding Example 


10-5 


In the example in figure 10-2, if the printing of line 03 causes the 
overflow indicator to turn on, output lines will occur in the follow~ 
ing order: 

05 is printed on the same page if indicator Ll is on. 

07 fetches overflow. 

09 and 11 are printed. 

Ol is printed after skipping to a new page. 

O7 is printed if indicator Ll is on. 
Forms will not automatically advance to a new page. It is the pro7 
grammer's responsibility to specify a skip to the first printing line 


on a new page. This skip to Top-of-Page must be specified on a line 
conditioned by the overflow indicator (see figure 10-3). 
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Figure 1073. Overflow Indicator with Skip Specified 


Fetch may be specified for an OR line, but not for an AND line, 
Fetched overflow can be specified for any detail, total, or ex 
ception line, except thosie conditioned by an overflow indicator. 


When more than one printer file is used, fetch pertains only to the 
overflow lines associated with the file in which the record speci- 
fying fetch is defined. 


Exception Line 


Since an overflow indicator cannot be specified on an exception out~ 
put line (E in column 15), FETCH OVERFLOW may be used to cause over- 
flow output at exception time. 


The use of fetch overflow (figure 10-4) will cause the heading, de- 
tail, and total overflow lines to be printed when the overflow line 
has been passed (if the conditioning indicators of the fetch line 

are satisfied). The user may also force overflow by setting ON the 
appropriate overflow indicator (using the SETON operation code) prior 
to issuing the EXCPT operation code. 
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Figure 1074, FETCH OVERFLOW with Exception Output Coding Example > 

17-18 SPACE 
This field is used to specify forms spacing for printer output files. 
It is divided into two subfields such that spacing BEFORE or AFTER 
printing may be specified. If both fields (SPACE and SKIP) are blank, 
Single spacing after printing is assumed, 
Valid entries for this field are: 

Definition | 


No spacing specified. 


Space Suppress. 


Space 179 lines, as 
specified. 


19-22 SKIP (RPG II DIALECT) 


This field is used to specify forms skipping for printer output files. 
It is divided into two subfields such that skipping BEFORE or AFTER 
printing may be specified. Valid entries for this field are: 


Definition 
Line number for skip-0-99. 


Line number for skip~100-109. 


Line number for skip-110-112. 


No skipping specified. 


10-7 


A skip entry must not be greater than the form length as specified 
in the Line Counter Specifications or as defaulted. 


If both skipping and spacing are specified on the same line, the 
operations are performed in the following order: 


a. SKIP BEFORE. 
b. SPACE BEFORE. 
c. SKIP AFTER, 
d, SPACE AFTER. 


If any of the four subfields contains an entry, all desired skipping 
and spacing should be specified. 


Spacing or skipping to or beyond the overflow line causes the over-~ 
flow indicator to turn ON. However, spacing or skipping beyond the 
overflow line to a line on the next page does not cause the overflow 
indicator to turn ON. 


The user should exercise his option to ensure skipping and spacing 
AFTER printing since it is more efficient than skipping and spacing 
BEFORE printing. 


Different SPACE and SKIP entries may be specified for OR lines. If 
all these entries are blank for an OR line, spacing and skipping are 
done according to the specifications on the preceding line. If any 
entries are made for an OR line, all desired spacing and skipping 
must be specified. SPACE and SKIP entries are not permitted on AND 
lines. Spacing and skipping must not be specified for other than 
printer files. 


19-22 SKIP (RPG 1 DIALECT) 


If RPG 1 dialect is specified on the Control Card Specifications, 
forms skipping is related directly to the operation of the printer 
carriage control tape. The SKIP field is divided into two subfields 
such that skipping both BEFORE and AFTER printing may be specified. 
Valid entries for this field are 1 thru 11, which designate skip 

to channel 1 thru 11. Skipping is done according to the format 
punched in the carriage control tape, and sensing a channel 12 punch 
will cause the proper overflow indicator to be turned ON. 


Line Counter Specifications are not required. If, however, the printer 
output is going to be written to backup during execution, Line Counter 
Specifications must be included if overflow output is ever to occur, 
They are used to associate line numbers with the channel numbers 
referenced, so that the program will be able to determine when the 
overflow line has been reached, 
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23-31 


OUTPUT INDICATORS 


This field is divided into three subfields such that up to three in- 
dicators on each line may be specified to condition an output opera- 
tion. Each subfield is divided into two parts as follows: 


a. NOT (one column). 
b. INDICATOR (two columns). 


The NOT portion is used to specify that the associated indicator 
must be OFF in order for the operation to occur. If this condition 
is desired, an N must be entered in the NOT portion. Otherwise, the 
NOT portion must be left blank. 


The INDICATOR portion is used to specify the indicator to be tested 
for ON (NOT = blank) or OFF (NOT = N). The following entries are 
allowed in this portion of the INDICATORS field: 


Operation not conditioned by 
an indicator. 


Operation conditioned by in- 
dicator used elsewhere in 
the program, 


Operation conditioned by 
control level indicator 
previously assigned. 


Operation conditioned by last 
record indicator. 


Operation conditioned by match- 
ing record indicator. 


Operation conditioned by halt 
indicator used elsewhere in 
the program, 


Operation conditioned by ex- 
ternal indicator previously 
set. 


Operation conditioned by over- 
flow indicator previously set. 


Operation conditioned by first 
page indicator. 


All three indicators on one line are in an AND relationship. All 
indicators on one line (or grouped lines) must be ON or OFF as 
specified in order for the associated operation to take place, 


An indicator specified on the line describing the record type will 
condition the entire output record. An indicator used to condition 
a field within the record is placed on the same line as the field 
description (see figure 10-5). 
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Figure 10-5. Output Indicators Coding Example 


The following paragraphs describe the uses of each of the output 
indicators. 


01-99 


LO-L9 


Numeric indicators may be used as follows: 


ae To condition output operations that are only to 
be performed for specific input record types 
(record identifying indicators). 


b. To condition output operations 


done when an input f 
(field indicators). 


ield meets 


c. To condition output operations 
results of previous operations 


tion Specifications 


(resulting 


that are to be 
certain conditions 


according to the 
in the Calcula- 
indicators). 


Control level indicators may be used to condition output 
operations that are to be performed only on the first 
record of a new control group. 


The LO indicator remains ON during the entire program. 

If no other control level indicators are assigned, but it 
is desired to perform total calculation and total output 
operations, the LO indicator may be used to condition 


those operations. 


LR 


MR 


HO-H9 


U1-U8 


OA-0G,OV 


The last record indicator is used to condition output 
operations that are to be performed at End~of-Job. 


The matching records indicator is used to condition output 
operations that are to be performed only when matching in- 
put records are found. 


Halt indicators previously assigned in the FIELD INDICA~ 

TORS field (Input Specifications) or the RESULTING INDI- 

CATORS field (calculation Specifications) may be used to 

condition output operations that are to be performed only 
when an error condition occurs. 


Since the program does not halt until after the record in 
error has been completely processed, some operations must 
be prevented in order to avoid erroneous output. By using 
halt indicators in conjunction with an N in the NOT portion 
of the INDICATORS field, an operation may be inhibited 

when the specified halt indicator is ON. 


If an output file is specified as conditioned by an ex- 
ternal indicator in the File Description Specifications 
(EXTERNAL INDICATORS field), every output record described 
for the file should be conditioned by the same external 
indicator, otherwise the object program will still build 
the output record (and perform any blank after operations 
specified) but must suppress the write operation. 


Overflow indicators previously assigned in the OVERFLOW 

INDICATOR field (File Description Specifications) may be 
used to condition output operations that are to be per7~ 

formed when the overflow line on a printer file has been 
reached. 


Overflow indicators which have not been previously assigned 
in the File Description Specifications (except OF and OV, 
which are compiler defined) may not be used in the Output 
Format Specifications. Forms advancing at End-of-Page are 
handled automatically if no overflow indicators are assigned 
to the file. Any specification line not conditioned by an 
overflow indicator which designates a skip to the next 

page turns OFF all overflow indicators before the skip 

takes place. 


Overflow indicators must not be used to condition excep~ 
tion records but may condition fields within exception 
records. 


No more than one overflow indicator may be associated with 
a group of output indicators in an AND or OR relationship, 
and it must be the same indicator assigned to the file in 
the File Description Specifications. 


The overflow line can be sensed when printing total or 
detail time output. If an overflow indicator is being used 
to condition output lines, the following steps occur when 
the overflow line is sensed during total time output: 


ae The overflow indicator turns on. 


10-11 


10-12 


f. 


The remaining total lines not conditioned by 
overflow are printed. 


All total lines conditioned by overflow are 
printed. If skipping is specified on these 
lines, it occurs as defined by the user. 


Heading and detail output lines conditioned by 
overflow are printed. If skipping is specified 
on these lines, it occurs as defined by the user. 


Heading and detail lines not conditioned by over- 
flow are printed. 


The overflow indicator turns off. 


If the overflow line is sensed during detail time output, 
the following steps occur: 


ae 


b. 


f. 


Qe 


The overflow indicator turns on. 


The remaining detail lines not conditioned by 
overflow are printed. 


All total lines not conditioned by overflow are 
printed. 


All total lines conditioned by overflow are 
printed. If skipping is specified on these lines, 
it occurs as defined by the user. 


Heading and detail output lines conditioned by 
overflow are printed. If skipping is specified 
on these lines, it occurs as defined by the user. 


Heading and detail lines not conditioned by over 
flow are printed. 


The overflow indicator turns off. 


When using the overflow indicator to condition overflow 


printing, 


Ae 


b. 


remember: 


Overflow indicators may be turned on and off by 
the operation codes SETON and SETOF. 


Spacing past the overflow line causes the overflow 
indicator to turn on. 


Spacing or skipping past the overflow line to 
any line on the new page does not turn the over- 
flow indicator on. 


A skip to a new page specified on a line not con~ 
ditioned by an overflow indicator causes the over7 
flow indicator to turn off. 


Control Level Indicators With Overflow Indicators 


If it is desired to have headings identifying the type of 
information on each page or each page to contain informa- 
tion from only one control group, control level indicators | 
may be used in conjunction with overflow indicators. To- 
gether they condition when headings and/or group informa- 
tion are to be printed. 


In the example in figure 10-6, the control level indicator . 
Ll is used in conjunction with the overflow indicator in 
order to print headings on every page. Line O1 allows the. 
headings to be printed at the top of a new page only when 
overflow occurs. Line 02 allows printing of headings on 
a new page only at the beginning of a new control group 
(L1). In this way, duplicate headings caused by both Ll 
and OF being ON at the same time will not occur. 
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Figure 10-6. Using Control Level Indicators With Overflow Indicators 


Figure 10-7 shows the necessary coding for the printing of 
certain fields on every page. 
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Figure 10-7. Coding for the Printing of Certain Fields 
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1P The first page indicator is used to allow printing of 
heading information on the first page of a printer output 
file. In conjunction with an overflow indicator in an OR 
relationship, it may be used to allow printing of the same 
heading information on all pages. The use of the 1P indi-~ 
cator is illustrated below (see figure 10-8). 


The first page indicator is invalid for update and combined 
files. 
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Figure 10-8. 1P Indicator Coding Example 


The first page indicator can be used to condition heading 
or detail lines. 


AND/OR If it is necessary to specify more than three indicators to 
condition an output operation, an AND line may be used. 
The word AND must be entered in columns 14-16, and the 
additional indicators entered in their respective fields. 
The conditions specified for all indicators in an AND re- 
lationship must be met before the associated output opera~ 
tion will take place. 


OR lines (OR in columns 14-15) may be used to group indi- 
cators such that only one of the conditions specified must 
be met for the associated output operation to take place. 
Both AND and OR lines may be used together to condition an 
output record (but not a field). A maximum of three indi- 
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cators in an AND relationship (on one line) may be used 
to condition a field. See figure 10-5 for an example of 
the usage of AND and OR lines. 


There is no limit on the number of AND or OR lines that 

may be specified. However, it is recommended that the user 
not exceed 20 if compatibility with other Burroughs sys- 
tems is desired. There must be at least one indicator on 
an AND/OR line and on the preceding line. 


32-37 FIELD NAME (VARIABLE NAME) 


This field is used to assign an identifier (name) to an output data 
field. The identifier used must have previously been defined in 
the Input Specifications (VARIABLE NAME field), the Extension 
Specifications (VECTOR NAME field), or the Calculation Specifica- 
tions (RESULT FIELD field). Also, any special words may be used. 

A separate line must be used for each field description, Fields 
may be listed in any order within each record type, since their 
location is determined by the entry in the END POSITION fields. If 
fields overlap, only the last field specified appears intact in the 
output record (the exact results will depend upon the degree of 
overlap). 


Special Words 
The following special words are reserved for use as variable names: 


PAGE 
PAGE1 
PAGE2 
UDATE 
UMONTH 
UDAY 
UYEAR 
* PLACE 
*PRINT 


Each special word has a specifically defined usage, as described in 
the following paragraphs: 


Page Fields (PAGE, PAGE], and PAGE2) 


If page numbering is to be done on output, the special word PAGE 
(or PAGE], PAGE2 for two more files) is used to indicate that page 
numbering is to be done automatically. When a PAGE field is named 
in this field without being previously defined in the Input or 
Calculation Specifications, it is assumed to be four characters in 
length with no decimal positions. On output, leading zeros are 
suppressed and the sign is not printed unless an edit word or edit 
code is specified. 


The page number begins at zero (unless otherwise specified), and is 
automatically incremented by one each time before the page field is 
written, 


The page number may be reset at any point during the program by 


setting the PAGE field to zero before it is printed (see figure 
10-9). This may be accomplished in two ways: 
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incrementation takes: place. 
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Assign an OUTPUT 
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b. 


but this is not recommended. 


are not restricted to printer files. 


different output files, 


and UYEAR 


UDAY 
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Four special words allow the program to obtain the current value of 


UDATE 


ate Fields 


D 


the date as supplied through the B 1700 System. 


rules apply to date fields. 


-digit numeric field in one of the follow- 


ing formats (depending upon the entry in the INVERTED 
PRINT field of the Control Card): 


UDATE gives a 6 


a. 


Domestic (MMDDYY), or 


1) 


(DDMMYY) . 


International 


) 


2 


UMONTH, UDAY, 


Id representing the month 


digit fie 


The other three fields, 


a 2 


b. 


spectively. 


they are usually used only in compare, 


and output operations. 


These fields must not be changed by any operations within 
thus, 


the program; 


test, 


Cc. 
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XPLACE Specification 


The special word *PLACE allows writing of the same field or fields 
-in more than one place in an output record without having to specify 
the field names and end positions more than once. The designated 
fields are written in the same relative positions ending in the po- 
sition specified for the *PLACE entry. It is possible to obtain the 
same results in two ways (see figure 10-10). 


a. Define each field and its corresponding end position for 
every time it is to appear in the output records, or 


b. Use the special word *PLACE. 
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Figure 10-10. *PLACE Specification Coding Example 
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Both methods will produce identical results, but use of the *PLACE 
entry saves extra coding. 


The following rules must be observed when using the *PLACE specifi- 
cation: 


a. All fields within the record type written above the *PLACE 
entry are repeated according to the *PLACE specification, 
not just the one line above. 


b. An end position must be given for every *PLACE specifica- 
tion, 
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An additional *PLACE entry (on a separate line) must be 
used every time the fields are to be repeated, 


*PLACE must be specified after the field names which are 
to be placed in different positions on the line; *PLACE 
must not be specified on the first field description line 
for a record. 


The end position specified for *PLACE should be at least 
twice the highest previously specified end position. If 
enough space is not allowed for all fields to be printed 
again, overlapping will occur, with the *PLACE output 
overlapping the previous characters. 


The end position specified for *PLACE must not be lower 
than the highest previously specified field end position, 


The leftmost position of the fields to be moved by the 
*PLACE specification is always assumed to be position l. 


When *PLACE is specified for card output, the fields and 
constants named above will be repunched, Any printed 
output on the cards will not be reprinted unless an * is 
entered in column 40 of the same line as *PLACE. 


Only the conditioning indicators (columns 237-31), FIELD 
NAME (columns 32737) and END POSITION (columns 40-43) may 
have entries. 


*PRINT Specification 


The special word *PRINT is used to cause card interpreting after 
punching (for card files only). Printing is done at the top of 
the cards in the same column positions as the fields are punched. 
The *PRINT specification must be used only once for each record 
and appears after all fields on the card which are to be printed. 
The *PRINT specification may be conditioned by indicators in the 
OUTPUT INDICATORS field; all other fields must be left blank 
(see figure 10711). 


Having the *PRINT specification print the corresponding field 
exactly as punched is not always desirable. 


To print the fields in positions other than would be assigned by 
the *PRINT specifications: 


a. Enter the field name to be printed in the VARIABLE NAME 
field, and 


b. Enter an asterisk in column 40, and 
c. Enter the end position for the field in columns 417-43 


(limited to a maximum of 128), right-justified; leading 
zeros not required. 
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Figure 10711. 

38 EDIT CODES 


WM) 


WML 
LALLY 
UUM LUMO 


UL 


*PRINT Specification Coding Example 


This field is used to specify editing of a numeric output field, 


otherwise it must be blank, 
provided, 


Certain editing operations have been 


for which it is not necessary to write an edit word. 


These operations (and their corresponding edit codes) are summarized 
in the EDIT CODES table on the Output~Format Specifications sheet. 


Also see table 10-1. 


Only numeric fields may be editied, 
the CONSTANT OR EDIT WORD field must be left blank, 
check protect or floating dollar sign is required, 
in columns 45-47, 


'$', respectively, 


and if an edit code is specified, 
However, if 
enter '*' or 


Check~protect and floating dollar sign must not be used with X, Y, 


or Z edit codes, 


If an edit code is used to edit a whole array, 
matically inserted to the left of each element. 


is edited with an edit word, 


two spaces are auto- 
If a whole array 
spaces are not automatically inserted; 


they should be included in the edit word if required. 


The ending position specified must allow sufficient space for the 
field after editing (special card needed for a whole array). 
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Table 10-1 Edit Codes Table 


Sign For 

Edit Decimal Zero é 
Commas Negative 

Code pa Point Suppress Balanes 


Printout on Zero Balance* 


Inter~ Inter- Domestic 
national |} national United 
I J Kingdom 


1 No Sign ,00 or 0 |0,00 or .00 or O 
2 Yes Yes No Sign Blanks Blanks Blanks 
3 Yes Yes No Sign ,00 or O | 0,00 or -00 or O 
4 Yes Yes No Sign Blanks Blanks Blanks 
A Yes Yes CR ,00 or 0 | 0,00 or .00 or O 
B Yes Yes CR Blanks Blanks Blanks 
C Yes Yes CR ,00 or O | 0,00 or -00O or O 
D Yes Yes CR Blanks Blanks Blanks 
J Yes Yes »900 or 0 | 0,00 or -0O0 or O 
K Yes Yes = Blanks Blanks Blanks 
L Yes Yes = ,00 or 0 | 0,00 or -00 or O 
M Yes Yes Blanks Blanks Blanks 

Yes 

Yes 


NOTES 


*Zero balances for the International format are printed or punched 
in two ways, depending on the entry made in column 21 of the Control 
Card Specifications. 


**kThe X code removes the sign. 


***xThe Y code suppresses the leftmost zero only. The Y code edits a 
three to six digit field according to the following pattern: 


no/n 
no/nn 
nn/nn/n 
nn/nn/nn 


a NR 


39 BLANK AFTER 


This field is used to specify that a variable is to be reset after 
the output operation is finished. Alphanumeric fields will be 
cleared to blanks and numeric fields will be cleared to zeros. 
Constants and UDATE, UDAY, UMONTH, and UYEAR must not be specified 
with BLANK AFTER. Valid entries for this field are: 
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40-43 


44 


Definition 


Field is not to be cleared. 


Variable is to be cleared 
after being moved to the 
output buffer. 


Under the default RPG II dialect, BLANK AFTER has no effect on zero/ 
blank indicators. However, if RPG 1 dialect is specified on the 
Control Card Specifications and if an indicator is assigned to a 
field to test for ZERO or BLANK in the Input or Calculation Speci-~ 
fications and the same field is used on Output Specifications with 
BLANK AFTER, then that zero/blank indicator will be turned ON when 
the field is blanked out. If more than one indicator is assigned 
to the same field as zero/blank indicator (on different Input or 
Calculation Specifications) then only the first one assigned is 
turned ON when the field is blanked out. When vectors or vector 
elements are output with BLANK AFTER, zero/blank indicators are not 
changed. 


END POSITION 


This field is used to specify the location of a field within an 
output record. Only the location of the rightmost position is 
specified; the number of positions to the left of that location is 
determined by the length specified previously for the field. Space 
must also be left to allow for any editing symbols (edit codes or 
edit words) that may be entered. The end position must not exceed 
the record length specified for the file,except in the special case 
where an * is entered in column 40. 


Table 10-2 illustrates the effects of the various edit codes on 
output for a negative number with two decimal positions. The END 
position is specified as 12. 


If an asterisk (*) is placed in column 40, the field will be printed 
in the upper portion of the card in the position specified. 


PACKED 
This field is used to specify that an output field will be written 


in packed decimal format. Packed decimal fields cannot be printed. 
Valid entries for this field are: 


Definition 


Field is to be written in 
alphanumeric or unpacked 


decimal format. 


Field is to be written in 
packed decimal format, 


This field must be blank if an asterisk appears in column 40 of the 
same specification line or for fields that precede *PRINT for a card 
file or *PLACE for a printer file. It must also be blank if an edit 
code, edit word or constant is specified,or if the field is alpha- 
numeric. 
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Table 10-2. Effect of Edit Codes on End Position 
Output Print Positions 


Edit 


Codes SEA e AE as 
uneditea | | | [-*[o| s{aj2] | 
1 ae a ora 
2 [ea Ws Ss a 
3 Lo ES rar ie 
ae j- fees 
| A fet SL Be eee! 
en Sees ee 
as - eee aie 
Dee ERR Ares ee 
ees 2 ee ee ae 
ees oi [eae ieee 2 
en ee EE Re ee 
M aa Fa eae eee 
x Co a ra Oe 
oan noe 

aes (ie es ie a a 

* - Represents a negative O, 
45-70 CONSTANT OR EDIT WORD 


Constants or Edit Words are entered in this field. A description 
of each is provided in the paragraphs that follow. 


Constants 


Constants are literals usually used for such things as page head- 

ings, and contain information that is not changed by an operation. 
Constants will appear exactly as written in the output record, in 

the position specified. The following rules must be observed when 
forming constants: 


a. The VARIABLE NAME entry must be left blank. 


b. Constants must be left-justified, enclosed in apostrophes, 
and no more than 24 characters in length. 


c. If an apostrophe is to appear in the constant, two con- 
secutive apostrophes must be coded for each apostrophe 
required. 


d. Numeric data may be used as a constant, but must still be 
enclosed in apostrophes. Note that this is an alphanumeric 
literal composed of numeric characters, 
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Ss! 
Edit words 


and 
and no more than 


tx? 


Coding of Output Constants 


FIELD NAME 


OUTPUT - FORMAT SPECIFICATIONS 
(VARIABLE 


There are two exceptions: 
which are used in conjunction with edit codes as 


? 


otherwise column 38 must be blank. 


Columns 40-43 (END POSITION) must con- 


enclosed in apostrophes, 
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Figure 107-12. 
Edit words are used instead of an edit code when a special edit 


The VARIABLE NAME entry must be a numeric variable. 


described under Edit Codes; 
24 characters in length. 


must be left~justified, 
tain an entry. 


Edit Word 
format is desired. 
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An edit word is divided into three sections: 
a. The body. 
b. The status section, 
c. The extension section, 


Generally the body contains the special characters used in editing 
the numeric contents of the corresponding VARIABLE NAME entry. 


The status section, if used, follows the body and must contain the 
editing characters,CR or ~ (minus). The status section is used to 
designate whether the numeric variable is positive or negative. Any 
character following the body section and preceding the CR or - (minus) 
editing symbols is considered part of the status section. The status 
section is printed only if the value of the numeric variable is 
negative. 


The extension section, if used, follows the status section and con 
tains information which is not changed by any operation and is al 
ways printed as coded. 


Any valid RPG character may appear in any of the sections of the 
edit word, although certain characters have special uses and care 
should be taken in the placement of these characters. The ampersand 
always appears as a blank unless RPG 1 dialect is specified on the 
Control Card Specifications. In this case, the ampersand, if speci- 
fied, will be printed as an ampersand in the extension section. 


Special Characters Used In Edit Words 


The character set used for special purposes within edit words con- 
sists of the following nine characters: 


blank ri comma 

QO zero CR credit symbol 
$ dollar sign * asterisk 

. decimal point & ampersand 


= minus sign 


The characters 0 (zero), blank, and floating dollar sign are used as 
replacement characters. Their use is shown below. 


Zero suppression, 
Asterisk fill. 
Blank, 


Floating dollar sign (if 
it appears immediately to 
the left of zero suppress). 
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A fixed dollar sign, decimal points, commas, ampersands, negative 
signs (CR and —), and constant information are not replaceable 
characters. 


All leading zeros are suppressed unless a zero or asterisk is 
specified in the edit word. The zero or asterisk indicates that 
the last leading zero in the edit word field is to be replaced by 
a blank or asterisk. 


Any zeros or asterisks following the leftmost zero or asterisk are 
treated as constants (they are not replaceable characters). 


Any constant to the left of the zero suppression stop character 
(except $) will be suppressed unless a significant digit precedes 
the constant. 


The number of replacement characters (0, *, blank, $) in the edit 
word must not be less than the length of the field to be edited, 


If the number of replacement characters is greater than the length 
of the field to be edited and the first character of the edit word 
is a zero, leading zeros will not be suppressed. 


If the number of replacement characters equals the field length 
and there are leading zeros, the first is suppressed but subse- 
quent zeros are not suppressed. 


Exa e 
Source Data Edit Word Result 
0012345 "Obbbbb. bb' 00123.45 
000000 'Obbbbbb'! 0000000 


There are two cases where an extra space should be provided in 
the edit word: 


a, An extra space must be left in the edit word for the 
floating dollar sign, or no dollar sign will appear if the 
output field is full. 


Example 
Source Data Edit Word Result 
-“724325 "bb, b$0.bb&—-' $7,243.25b- 


b. An extra space may be left in the edit word if the first 
character of the edit word is zero. In this case, the 
field will not be zero suppressed, but all other specified 
editing will be performed. 


Example 
Source Data Edit Word Result 
+007461 'Obbb, bbb’ 007,461 
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The following paragraphs and corresponding examples describe how 
the various editing characters function. The symbol b is used to 
indicate where blank spaces will appear in the output record, 


No Editing 


If no edit word is used (figure 10-13), the data in the output 
record has the same format as the unedited data. Note that the 
low-order position of the output field is printed as an alphabetic 
character (J-R), if the source data field is negative. 


If a blank edit word is used, all leading zeros are suppressed and 


any sign in the unedited field is removed. Negative values are not 
identified. ; 


SOURCE DATA 


+0000123456 


CONSTANT OR EDIT WORD OUTPUT RECORD 


0000123456 


-0000123455 000012345N 
0000000000 bbbbbbbbbb 
+0000123456 : bbbb123456 


-0000123456 bbbb123456 


G14083 


Figure 10-13. No Editing Coding Examples 


Zero Suppression 


When the zero suppression zero is specified (figure 10-14), blanks 
replace leading zeros and constants until a significant digit is 
encountered or through the position of the zero suppression Zero, 


When the zero suppression zero is not specified, zero suppression 
occurs throughout the field when the value of the source data is 

zero. Therefore, if it is desired that the zero value be printed 
in the output field, the zero suppression zero must be specified. 


Dollar Sign 


If the dollar sign is placed just left of the zero suppression zero, 
it becomes a floating dollar sign. In an edited data field, the 
floating dollar sign always appears to the immediate left of the 
first significant digit. Note that an extra position should be 
left in the high-order: portion of the edit word to accommodate the 
floating dollar sign. 


If a dollar sign is placed at any other point in the body portion 
of the edit word, it becomes a fixed dollar sign. A fixed dollar 
sign should generally be placed in the extreme left position of 
the edit word (see figure 10715). 


10-26 


SOURCE DATA 


0000000005 
00000000 
-00000000123 
-0000123456 
+0000123456 
0000000000 
0000000000 
000000 
000000 
0000000000 
001234 
-000000015 
000000005 
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Figure 


SOURCE DATA 


+0000000005 
-0012345678 
0000000000 
+0000123456 
-0000123456 
0000123456 
-0000123456 
-1234567890 
0000000005 
0000000005 
-1234567890 
-0001234567 
0000001234 
00123456 
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Figure 10715. 
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OUTPUT RECORD 


bbbbbbbbbb.05 a 
bbbbbbbbbOb 
bbbbbbbbbb1 . 23- 
bbbb123456 
b000123456 


bbbbbbbbbbbbbbOLD BAL 
bbbbb.00 

bbbbbbbo 
bbbbbbbbb0*00 

b, 012,034 
bbbbbbbbbb15- 
bbbbbbbbO.05b 


OUTPUT RECORD 


bbbbbbbbb$0.05b 
bbb$123 , 456, 78CR** 
$bbbbbbbbbb. 00 
$bbbb123456bbbNET 
$bbbb123456b-bNET 
$0000123456bbNET 
bbbb$123456bCR 
$1234567890bCR 
bbbbbbbbb$0..05bNET 
bbbbbbbbbb$ .05 
$12,345,678.90- 
bbbb$12 ,345.67CR 
bbbbbb$ , 012,.34bSALES 
bbb1$ , 234.56 


Dollar Sign Coding Examples 
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Asterisk Fill 


Asterisk fill, generally used for printing checks, follows the same 
rules as zero suppression (see figure 10716). 


Asterisks replace all positions in the edit word to the left of the 
first significant digit. 


Zero suppression and asterisk fill can be used together. If zero 
suppression is not used and the asterisk appears in the right most 
position of the body portion, the entire field will contain as- 
terisks when the value of the source data is zero. 


SOURCE DATA ; 


0000123456 


CONSTANT OR EDIT WORD OUTPUT RECORD 


#2 44K] | 234, 56bb 


-~0000123456 *000123456 
+1234567890 1234567890 
-0000123456 ****123456 
0000001234 KK KAK , O1Z*34 


012345 ***120 ,345 


GI4086 


Figure 10-16, Asterisk Fill Coding Examples 


Negative Signs 


The credit symbol (CR) and the minus sign (-) have special meanings 
only when they appear in the status portion of an edit word, other~ 
wise, they are treated as constants. CR, ~, and any other constant 
appearing in the status portion of the edit word are printed only 
if the value of the source data is negative (figure 107-17). 


Ampersand 


The ampersand is used to ensure spacing in the edit word (figure 
10-18). If RPG 1 dialect is specified (figure 10-19), ampersands 
will appear as ampersands in the extension section of the output 
record, | 


Constants in the Edit Word 


Constants may appear anywhere in an edit word (figure 10-20). In 
the body portion, only constants to the right of the most signi-~ 
ficant digit and/or to the right of a dollar sign, asterisk, or 
zero in the output field will be printed. Constants in the status 
portion will be printed only when the value of the source data is 
negative. Constants in the extension portion are always printed 
as specified in the edit word. 
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Figure 10-17. Negative Signs Coding Examples 


SOURCE DATA CONSTANT OR EDIT WORD OUTPUT RECORD 


-1234567890 


-1234567890 DcHaAMBEANS 


-0000123456 Rhy ees fel | 
bi | 


+ 000002 
031274 
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Figure 10-18. Ampersand Coding Examples (RPG II Dialect) 


CONSTANT OR EDIT WORD 


SOURCE DATA OUTPUT RECORD 


45 70 ek 

MTEL ELT TT | elPei@eniti | TT] ] epppi2345eaeprorrt 

Rae arene sae etnernnen bbbb123456bbb&NET 
NSB | tot | ist fol fe] | i-Wleiridiealyl’| p12, 345,678. 90b-NET&PAY 


0000123456 
0000123456 
1234567890 


G14089 


Figure 107-19. Ampersand Coding Examples (RPG 1 Dialect) 
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SOURCE DATA CONSTANT OR EDIT WORD OUTPUT RECORD 


an 
o 


~ 


bbbb123456bbPROFIT 


0000123456 Tl’ ie 

-0000123456 aN || bbbbb1, 234, 56bCRDbNET 
0000123456 aa | bbbbb1, 234DOLLARSS6CENTS 
000000 ris | | pbbbbbbbbbbbbbCENTS 
000000 TIS || bbbbODOLLARSOObbbbbbbb 

-000002 é\- || bbbbLBS. 0202. TARED- 
063369690 | || 63-36-9690 
0042 cig || pOHRS.42MINS.bO ' CLOCK 
093074 | | || b9-30-74bLATER 
093074 ae || 9/30/74 

G14090 
Figure 10-20. Examples of Constants in the Edit Word 
75-80 PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 
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SECTION | | 


DOLLAR CARD SPECIFICATIONS 


Dollar Card Specifications accommodate various extensions to the B 1700 RPG 
Language, which cannot be handled on the other specification forms. Dollar 
Cards also allow certain compiler~-control options to be set or reset during 
compilation, 

Dollar Cards may appear anywhere within the source deck, as required. The 
standard Dollar Card Specifications form may be used or options can be coded 


on the other specification sheets at the points where they will be placed in 
the source deck, 


FIELD DEFINITIONS 


Refer to figure 11-1 in conjunction with the following field definitions for 
the Dollar Card Specifications. 


Leo PAGE 

Refer to Section 2 for a complete description. 
375 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 


This field may be left blank or used to contain the form type of 
the specification in which the option is to be inserted. 


7 $ OPTION 
A $ sign must appear in this field. 

8 NOT 
This field is used to specify that the option entered in the KEY 
WORD field is set ON (NOT = blank) or OFF (NOT = N). Certain options 


cannot be turned OFF; these are indicated under the KEY WORD entry 
description. Valid entries for this field are: 


Definition 


Specified option is "set". 


Specified option is "reset". 


gS Fag ® 


6-LT 


Burroughs B 1700 RPG 
PROGRAM ID PAGE OF 
PROGRAMMER DATE 
1 2 75 8 
DOLLAR CARD SPECIFICATIONS PROGRAM 


KEY WORD VALUE COMMENTS 


HL 


A. 6 May contain the form type of the specification 
in which the option is to be inserted. Entries: 
Blank, F, E, L, I, C, or 0. 

B. 8 Specifies if the option entered in the KEY 
WORD field is to be set ON or OFF. Entries: 
Blank or N. 

C. 9-14 Names the option to be used, left-justified. 
For entries, see the descriptions in the text. 

D. 15-24 Used to specify a value to be associated 
with the entry in the KEY WORD field. Not 
always required. Entries: Alphanumeric, left- 
justified and numeric, right~justified. 


E. 15-74 Used for documenting and commenting. 


Gido9i 


Figure ll-1. Dollar Card Specifications Summary Sheet 


KEY WORD 


This field is used to name the option to be set or reset (according 
to entry in NOT field). The option name must be entered left- 
justified in the field. Options fall into three categories: file 
identification extensions, RPG extensions, and compiler-directing 
options. 


The following B 1700 dollar options may or may not be valid on 
other systems and vice versa. Unrecognized dollar cards will be 
ignored, but a warning will be emitted. 


File Identification Extensions 


The following extensions are used to specify the external names 
for files described in the File Description Specifications. They 
must immediately precede the file in the File Description Speci- 
fications to which they refer. None of the options may be reset. 


$ PACKID Specifies the pack name of a disk file. Similar 
to $ FAMILY and $ FILEID. Default of blank name 
and MCP assumes systems pack. This entry should 
be included to ensure correct handling of the 
file by the MCP. 


$ FAMILY Specifies the external main directory family name 
associated with the file. The value field con- 
tains the name (one to 10 characters left- 
justified). 


$ FILEID Specifies the external file ID associated with 
the file. The value field contains the name 
(one to 10 characters left-justified). 


An external name may be in one of the following four forms: 


family name 

family name/file ID 

disk pack ID/family name/file ID 
disk pack ID/family name/ 


The internal name of each file is the filename assigned in the File 
Description Specifications. 


Unless the FAMILY specification is used, the family name will be 
the same as the internal filename, that is, the filename speci- 
fied on the File Description Specification, Therefore, if none of 
the file identification extensions are used the internal and ex- 
ternal name will be the same, i.e., the family name. Figure 11-2 
illustrates how the insertion of the different file identification 
extensions before a file called MASTER affects that file's external 
name. 
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614092 


EXTERNAL NAMES 


MASTER/MASTERF ILE 


PAYROLL 


PAYMASTER/MASTER/ 


PAYROLL/MASTERF ILE 


PAYMASTER/ PAYROLL/ 


PAYMASTER/PAYROLL/MASTERF ILE 


Figure 11-2. Coding File Identification Extensions - Dollar Sign Options 
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RPG Extensions 


The following options may appear only within the File Description 
Specifications, except RSIGN, and must immediately precede the 

specification line describing the file to which they apply. None 
of the following operations may be reset except RSIGN and ONEPAK. 


$ AREAS Specifies the maximum number of areas to be allocated 
for the file (disk files only). The VALUE field con- 
tains an integral value (right justified, leading 
zeros optional). A system~dependent default value of 
25 is assumed unless specified by use of this dollar 
option. Maximum number of areas that may be assigned 
is 105, 


$ RPERA 


$ OPEN 


$ CLOSE 


$ AAOPEN 


$ ONEPAK 
$ CYL 


$ DRIVE 


$ REFORM 


$ REORG 


Specifies the maximum number of logical records that 
will be written in each disk area. The VALUE field 
contains an integral value (right~justified, leading 
zeros optional). The default value assigned is 500 un- 
less specified otherwise. If records per area is not 
an even multiple of blocks per area the compile will 
default to the nearest even multiple of blocks per area, 


Explicity open allows for all files to be opened at 
Beginning-of-Job. Default is an implicit open when 
the files are actually called for. 


Explicity close allows all input serial files to remain 
opened until End-of-Job. Default is the implicit close 
of files at End-of-File, 


Is a file OPEN time option used to set a bit in the 
program's code file File Parameter Block for this file 
and to allocate all disk space areas at the time the 
file is opened. 


Specifies that this particular file must be contained 
on one disk. 


Allocates file areas starting on an integral cylinder 
boundary. 


Allocates a physical drive to that particular file. 
Applies only to Systems disks. VALUE field must be 
0-15. Option may not be reset and is not related to 
PACKID, 


Input and update disk files are assumed to have the 
block and record lengths declared on the file header 
unless the $ REFORM option is used. However, on 
input or update chained indexed file specifications 
"data keys in core" option, it may be desirable to 
also use $ REFORM to indicate to the compiler that 
it may juggle the blocking factor to optimize the 
speed of chaining. Under this condition, the block 
length and record length specified on the File De- 
scription Specifications must be the same as when the 
file was output. This combination will produce the 
fastest chaining possible. 


Specifies a specialized method of sorting indexed 
files and will be invoked at End-of-Job. The REORG 
feature only sorts the additions and then merges them, 
in place, into the master file. This method of sort~ 
ing should decrease the sort time and the temporary 
disk area required, The VALUE field contains the ex- 
ternal file identifier of the indexed file including 
the disk pack ID. 


Note that REORG uses the record and block length as 
specified in the disk file header, unlike the normal 
sort option which creates the parameters as specified 
in the File Description Specifications. The record 
and block length of the file additions must be the 
same as specified in the disk file header; otherwise 
the file will not sort correctly. 


$ RESIGN 


$ CHAIN 


$ DNAME 


Indicates to the compiler the location of the sign of 
external numer:ic data items. When set, all signs are 
assumed to be in the low-order (rightmost) position 
of the field; when reset, all signs are assumed to 

be in the high-order (leftmost) position of the field. 
This option may be set and reset at different points 
in the source program, allowing different fields to 
have different sign positions. If the option is used, 
it will override the sign position specified in the 
Control Card Specifications. 


Specifies that only the binary search code is to be 
emitted for chained indexed disk files. 


The value field contains an alpha mnemonic for the 
physical hardware device to which it refers. 


Only one of the following four $ RPG Extensions may be used per 
file specification: 


$ PTAPE 


$ TAPE7 
$ TAPEQ 


$ CASSET 


Modifies READER or PUNCH to apply to a paper tape 
reader. 


Modifies a tape device to 7-track, 
Modifies a tape device to 9-track. 


Modifies a tape device to a cassette. 


Compiler~Directing Options 


The following options may appear anywhere within the B 1700 RPG 
Source Program. These options direct the compiler to perform 
specific functions. All of the following options (with the ex- 
ception of SEG) may be "reset". 


$ LIST 


$ LOGIC 


Specifies that the compiler produce a single spaced 
output listing of the source statements with the error 
or warning messages. This option is set "on" by de- 
fault. Resetting to "off" will not inhibit the errors 
or warning messages from printing. 


Specifies that the compiler produce a single-spaced 
listing of each source specification line, followed 
immediately by an intermediate code used to generate 
COBOL S-code. The listing is produced after the 
NAMES listing (if the NAMES option is set), and does 
not include addresses or bit configurations, but only 
the opcodes and logical operands of the program, 


Specifies that the compiler produce a single~spaced 
listing, detailing the program's memory utilization. 
The MAP listing is produced after the LOGIC listing 
(if the LOGIC option is set). 


$ NAMES Specifies that the compiler is to produce a single 
spaced listing of all assigned indicators, file names, 
and field names. The attributes associated with each 
file and field are also listed. The NAMES listing is 
produced immediately after the normal source input 
listing. 


$ BAZBON Specifies that if an indicator is assigned to a field 
to test for ZERO or BLANK in the Input or Calculation 
Specifications and the same field is used in the 
Output Specifications with a BLANK AFTER designation, 
that indicator will be turned ON after the field is 
blanked during the output operations. Should a N 
(NOT) be specified in column 8, the indicator will 
be turned OFF, overriding the original RPG 1 or 
RPG II specifications, 


$ ZBINIT Specifies that all ZERO or BLANK indicators are 
initialized ON at Beginning-of-Job; or, if a N (NOT) 
is specified in column 8, they will be initialized 
OFF regardless of the specifications for RPG 1 or 
RPG II. 


$ STACK If infrequent stack overflow conditions occur during 
program execution, the user may change the stack size 
of the resultant program, This should be used only 
when a legitimate STACK overflow condition has occur- 
red (i.e., nested subroutines more than 8 deep). The 
default stack size is 313 bits which will allow 8 
entries in the stack. To increase the stack size, 
add 39 bits to the default size of 313 for each ad- 
ditional stack entry. 


$ XREF Allows the RPGXRF file to be created during compilation 
for use as input to the RPG/XREF program. The XREF 
option must be placed at the beginning of the RPG source 
program, prior to the first File Specification. At 
the completion of the compilation it is necessary to 
manually execute the RPG/XREF program in order to 
obtain the cross reference listing. 


$ PARMAP Produces a single-spaced listing of the compiler- 
generated paragraph names, source statement numbers, 
and actual segment displacements of the emitted code. 
This listing may be used to relate to the LOGIC 
listing. 


$ SEG Orders the compiler to begin placing code in an over- 
layable segment identified by the integer in the VALUE 
field (right-justified, between O and 7 inclusive). 
Segmentation is an automatic function of the RPG 
compiler. When the SEG option is used, automatic 
segmentation is not suppressed, 
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75-80 


$ SUPR Specifies that the compiler is to suppress all 
warning messages from the source program listing. 
(Error messages still print.) 


$ XMAP Specifies that the compiler print a single-spaced 

listing of all the code generated, complete with 
actual bit configurations and addresses. Combined 
with the listing produced by the LOGIC option, com- 
plete information about the generated code of the 
program is available, The XMAP listing is produced 
after the MAP listing if the MAP option is set. 


VALUE 

This field is used to specify a value to be associated with the 
option entered in the KEY WORD field. Not all options require a 
value; those that do are so designated in the individual de- 
scriptions of each option (KEY WORD field). 

All alphanumeric values must be entered left-~justified in the VALUE 
field. All numeric values must be entered right-justified in the 
VALUE field; leading zeros are optional. 

COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 12 
COMPILER OPERATION 


The Burroughs RPG Compiler is an integral part of the B 1700 software system, 
It is treated in many respects as merely another program to be executed and 
can be multiprogrammed with other programs, or with itself. 


RCE_ INPUT 


An input card file labeled RPG/CARD is the only source required by the com- 
piler. All source input must be punched in the EBCDIC character set unless 
it is translated on input. 


If it is desired that the input file be assigned to a device other than the 
card reader, then this may be achieved by using the FILE statement. This, 
of course, means that the device from which the source file is read should 
have the same record length (80 characters) and blocking factor (1) as the 
device from which the compiler expects to read the file. An RPG/VECTOR file 
assigned through the FILE statement should have a record length of 96 and a 
blocking factor of l. 


NTR ARD_ SYNTAX 


The format of the MCP control cards is as follows: 


TO LIBRARY . 
? COMPILE <program~name> WITH RPG FOR SYNTAX <control-attributes> ... 
SAVE 


? CHARGE <charge-~number> 
? MEMORY <memory~size> 
? PRIORITY <priority~number> 
? FILE <internal-file-name> <file-attributes> 
? DATA RPG/CARD 
source specification cards 
? END 
? DATA RPG/VECTOR 
compile-time table cards 


? END 
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All of the above control cards are fully discussed in the B_1700 System 
Software Operational Guide, Form No. 1068731, The format of the four op- 


tions of the COMPILE statement are discussed here, 


COMPILE This is a "compile and go" operation. If the 
compilation is error-free, the MCP schedules 
the object program for execution, The program 
will not be entered into the Disk Directory, 
and must be recompiled to be used again. The 
"compile and go" is the default option of the 
COMPILE statement. COMPILE may be abbreviated 
as CO. 


COMPILE TO LIBRARY This option will leave the program object file 
on disk and will enter the program~name into 
the Disk Directory after an error-free com~ 
pilation. The program is not scheduled for 
execution. LIBRARY may be abbreviated as LI. 


COMPILE SAVE This option combines the execute and library 
options. The MCP will enter the program- 
hame into the Disk Directory and will leave 
the object program file on disk. The MCP 
will also schedule the program for execution 
after an error-free compilation. The program 
remains in the Disk Directory. SAVE may be 
abbreviated as SA. 


COMPILE FOR SYNTAX This option provides a diagnostic listing as 
the only output. This option does not enter 
the program~name into the Disk Directory or 
leave the program object file on disk. SYNTAX 
may be abbreviated as SY. 


The following sample deck could be used to compile a source program contained 
in punched card to library: 


? COMPILE PROGRAM/TEST1 WITH RPG TO LIBRARY 
? CHARGE 12345 
? DATA RPG/CARD 
source specification cards 
? END 


The following sample deck could be used to compile a source program contained 
on magnetic tape for syntax: 


? COMPILE AAA/BBB/TEST2 WITH RPG FOR SYNTAX 
? FILE SOURCE NAME = RPG/SOURCE DEFAULT TAPE 
? END 


NOTE 


For the effect of the DEFAULT option, re- 


fer to the B.1700 System Software Operational 
Guide, Form No. 1068731. 


12-2 


VECTOR FILE INPUT 


The vector input files consist of compile-time and execution~time vector 
files, both of which are described in the paragraphs that follow. 


COMPILE-TIME VECTOR FILES 


If the program requires that table or array files be included during compila- 
tion, the compiler requires an input card file labeled RPG/VECTOR. This file 
may be input from a medium other than cards, through use of the FILE state- 
ment. Card input may be punched in either the BCL (96 column card) or EBCDIC 
(80 column card) character set. 


Vector files must be entered in the same order as specified in the Extension 
Specifications, and each file must contain exactly the number of records 
specified. No separators define the end of one vector and the beginning of 
the next; records are read into one vector until that vector is full. Filling 
of the next vector is begun from subsequent records. 


The following sample deck could be used to compile a source program (with 
compile-time vector input) contained on cards to library: 


? COMPILE AAA/TEST3 WITH RPG TO LIBRARY 
? DATA RPG/CARD 
source specification cards 
? END 
? DATA RPG/VECTOR 
table file cards 
? END 


EXECUTION-TIME VECTOR FILES 


If the program requires table or array files to be included at the beginning 
of object program execution, the program will require card files with the 
labels as specified by the program in the File Description and Extension 
Specifications. The files may be read from a medium other than cards, through 
use of the FILE statement. 


COMPILER FILE NAMES 


Table 12-1 lists the files that are used by the compiler for source input 
and compilation output. 


Table 12-1. Files Used for Source Input and Compilation Output 


: Internal External 


Source Input Card Reader SOURCE RPG/CARD 


Table Input Card Reader TABCRD RPG/VECTOR 
Output Listing Line Printer LINE RPG/PRINT 


Figure A~1l shows the zone and digit portions of an 80-column card. 


for character A is 12, and the digit is l. 


and the digit 9. 
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Figure An-l. 


Figure A-2 shows the zone and digit portions of a 96-column card. 
and 0 on a 96~column card are BA, B, 


12, 11, 


Table Avrl lists. the 80-column and 96-column 
character set. 
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B 1700 CARD CODES 


The 
The zone for character R is 


zone 
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Zone and Digit Portions of an 80-Column Card 


The zones 


and A, respectively. 


card codes for the complete B 1700 
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ZONES 


614094 


Figure A-2, 
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Zone and Digit Portions of a 96-Column Card 
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Table Awl. Punch Card Codes for the B 1700 Character Set 


EBCDIC BCL EBCDIC . BCL 
Character 80-Column 96-Column Character 80-Column 96-Column 
Card Code Card Code Card Code ard Code 


no punches no punches F B-A-4-2 
12-8-2 B-A-8-2 G B-A~4-2-1 
12-8-3 B-A-8-2-1 H B-A-8 
12-8-4 B-A-8-4 I B-A-8-1 
12-8-5 B-A-8~4-1 J B-1 
12-876 B-A-8-47-2 K B-2 
12-8-7 B-A-8-4-2-1 L B-27] 
12 B-A M B-4 
11-8-2 B-8-2 N B-4-1 
11-8-3 B-8-2-1 O | B-4-2 
11-874 B-8-4 Pp B-4-2-1 
11-8-5 B-8-4-1 Q B-8 
11-8-6 B-87-4-2 R B-8~1 
11-8-7 B-87-47-2-1 S A=2 
11 B T A~2-1 
0-1 A=] U A-4 
0-873 A-8-2-1 V A-47-1 
0-8-4 A-874 W A-4-2 
078-5 A-8-4-1 Xx A-4-2-1 
0-8-6 A-8-4-2 Y A-8 
0-8-7 A-87-4-2-1 Z A-8-1 
8-2 8-2 1 1 
8-3 8-2-1 2 2 
8-4 8-4 3 2-1 
8-5 8-4-1 4 4 
8-6 8-4-2 5 4-1 
8-7 8-4-2-1 6 4-2 
12-1 B-A-1 7 4=2-] 
12-2 B-A-2 8 8 
12-3 B-A-2-1 ) 8-1 
12-4 B-A-4 0 0 
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B-A-4-1 


APPENDIX B 


HEXADECIMAL VALUES FOR THE B 1700 
CHARACTER SET 


Table B-1 presents the RPG collating sequence, and table B-2 may be used in 
converting hexadecimal digits to binary code. In table B-1, the zone portion 
of a character is represented by the first hex digit, and the digit portion of 
the character is represented by the second hex digit. 


Table B-l. B 1700 RPG Collating Sequence 


- Hexadecimal Hexadecimal 
charecuer Equivalent Capea ever Equivalent 


: 7D 
7E 
7F 
Cl 
C2 Ascending 
C3 Order 
C4 
C5 
C6 
C7 
C8 
C9 
DO 
D1 
D2 
D3 
D4 
DS 
D6 
D7 
D8 
D9 
E2 
E3 


~~ 


Ascending 
Order 


HAWDAOnNI OZ BFR Ye HP BOA HTD OD Pe 
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Table B-1. B 1700 RPG Collating Sequence (Cont) 


Hexadecimal 
Equivalent 


Hexadecimal 
Equivalent 


Ascending 
Order 


Ascending 
Order 


Table B-2, Hex to Binary Conversion Table 


Binary 
Equivalent 


Heo OwW PrP Oo ON Ho WD 
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BURROUGHS INDICATOR SUMMARY FORM 


The RPG Indicator Summary Form, illustrated in figure C-l is used strictly for 
documentational purposes. Its function is to provide an accurate record of 
the indicators that are used and the function of those indicators in the RPG 
Program, 


Burroughs B 1700 RPG 
PROGRAM ID PAGE OF 
PROGRAMMER DATE 


15 30 
oe . MARY PROGRAM 
[L] INDICATOR SUMMA IDENTIFICATION LITT 


NOTE: ALL INDICATORS ARE NOT VALID WITH ALL SYSTEMS. 
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Figure C-l1. Burroughs Indicator Summary Form 


The indicator Summary Form fields and their content are: 


Column Content 
6 Form type (optional predefined F). 
7 Asterisk required - causes complete card to be 
commented, 
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Column Content 
8-10 Record identifying indicator. 
11-13 Input field indicators. 
14-16 Calculation resulting indicators. 
17-19 Matching and chaining indicators. 
20-22 Control level, Overflow, Halt, and User indicators. 
237-74 Function of the indicators described in columns 8-22. 
75-80 Program ID. 


C-2 


GENERAL 


GO85 


GO95 
G304 


G306 


G315 


G524 


G999 


APPENDIX D 


COMPILE-TIME ERROR AND 
DIAGNOSTIC MESSAGES 


FILE NAME NEVER DEFINED 
A file name has been referenced that has never been defined 
in File Specification. 


INVALID AND/OR LINE SPECIFICATION 


Ul - U8 MAY BE SET EXTERNALLY ONLY 

These external indicators may not be set programmatically 
and should only be used to indicate at execution time 
whether or not the file is to be used by the program. 


INDICATOR NEVER DEFINED 
This message is caused by an indicator being tested that 
has never been set. 


FIELD NAME NEVER DEFINED 
This message is caused by an undefined variable name being 
referenced, 


CHAINING KEY LENGTH NOT EQUAL CHAINED FILE KEY LENGTH 
This message indicates that the key length specified on 
the File Specification does not agree with the variable 
used to initiate chaining. 


DATA NOT NEEDED/EXPECTED IN THIS CARD 


FILE DESCRIPTION SPECIFICATIONS 


Refer to Section 4 for further information, 


FO23 - INVALID FILE NAME 


F024 


F026 - 


The message is caused by an invalid file name in columns 
7-14. <A file name must be unique in the first seven char- 
acters, 


REDEFINED FILE NAME 
The file name specified in columns 77-14 does not contain 
a unique name in the first seven characters. 


INVALID FILE TYPE 

This message is caused by an illegal entry in column 15 
of the File Specification form. Valid entries are I, O, 
U, C, and D. 
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FO28 - INVALID FILE DESIGNATION 
This message is caused by an illegal entry in column 16 
of the File Specification form. Blank must be used for 
output files; otherwise one of the following entries are 
required: P, S, C, T, or D. 


FO33 - NO SEQUENTIAL INPUT FILE FOUND 
A primary or secondary file is required. 


FO36 - INVALID END OF FILE ENTRY 
This message is caused by an invalid entry in column 17. 
Valid entries are blank or E. 


FO39 —- INVALID SEQUENCE ENTRY 
This message is caused by an invalid entry in column 18. 
Valid entries are A, D, or blank. 


F042 - INVALID BLOCK-RECORD LENGTH 
When the Block and Record length contain blanks, a default 
of 132 is assumed for print files, and 80 for all other de-~ 
vices. When the block length is blank, it will assume the 
record length. When the block and record length contain 
valid numbers, the block length must be an integral part 
of the record length. 


F044 - MULTI BUFFERS AND STACKER SELECTION ON SAME FILE . 
Stacker selection may not be used when multiple buffers are 
specified, owing to the processing of the records from the 
buffer areas. 


F044 - INVALID ENTRY TYPE OF ORGANIZATION 
This message is caused by an invalid entry in column 32, 
Valid entries must contain I, 1-9, or blank. 


F046 - INVALID ENTRY ADDITION~UNORDERED 
This message is caused by an invalid entry in column 66. 
Valid entries are U, A, or blank. 


F049 - INVALID/MISSING EXTENSION CODE 
This message is caused by an invalid entry in column 39. 
Valid entries are blank or KE for table files; L may be 
specified for print files. 


FO52 - INVALID DEVICE 
This message is caused by an invalid device specified in 
columns 40746. Valid entries are READER, MFCU1, PUNCH, 
PRINTER, PRINTR2, TAPE, DISK, SPO, or CONSOLE, 


FO56 - INVALID FILE FORMAT/FILE CLOSE 
This message is caused by an invalid entry in column 19. 
Valid entries are F, V, or blank. 


FO57 - INVALID INDICATOR MUST BE U1-U8 
This message is caused by an invalid entry in columns 717-72, 
Valid entries are U1-U8 or blank. 
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F400 - INVALID ENTRY MODE 
This message is caused by an invalid entry in column 28. 
This field must contain R or blank. 


F404 - INVALID ENTRY ADDRESS TYPE 
This message is caused by an invalid entry in column 3l. 
Valid entries are A, K, P, N, or blank. On indexed files, 
this field specifies the format of the key; it must be 
left blank if the file is not indexed. 


F407 - INVALID ENTRY ADDITION-UNORDERED 


F543 ~- INVALID KEY LENGTH ENTRY 
The key length is required when using indexed processing. 
When used, this field (columns 29-30) must contain a valid 
number from 1-99, and the key length plus the key start 
location must not exceed the record length. 


F549 - INVALID KEY START LOCATION 
The key start location field is required when using in- 
dexed processing. This field (columns 35-38) must contain 
a valid number, and the key start location plus the key 
length must not exceed the record length. 


F553 - INVALID KEYS IN CORE ENTRY 
The keys in core entry (columns 60-65) must contain a 
valid number not exceeding 9,999. 


EXTENSION SPECIFICATIONS 


Refer to Section 5 for further information. 


EO61 - CHAINING FIELD FOR THIS LEVEL NOT DEFINED ON INPUT 
This message indicates that automatic chaining has been 
specified, and the corresponding level has not been 
specified on input. 


E062 ~ INVALID FROM FILE NAME ENTRY 
This message is caused by an invalid entry in columns 117-18. 
It is used as the file name of every execution-time vector, 
but must be left blank if the vector is to be loaded at 
compile time or via Input or Calculation Specifications. 


E063 —- INVALID TO FILE NAME ENTRY 
This message is caused by an invalid entry in columns 197-26, 
It is used as the file name of a vector file that is to be 
written or punched. A valid file name must be used as well 
as being previously defined on the File Description Specifi- 
cation form. 


E067 ~ INVALID VECTOR NAME 
This message is caused by an invalid table or array name in 
column 277-32. Valid vector names cannot exceed six char- 
acters and must be unique. Table names must begin with the 
letters TAB. 
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E068 


E070 


E072 


E074 


E076 


E077 


E079 


E122 


E228 


E315 


INVALID ENTRY NUMBER OF ENTRIES PER RECORD 

This message is caused by an invalid entry in columns 33°35. 
This field must contain a valid number. This entry times 
the length of Vector A plus the length of Vector B (if 
applicable) must not be greater than the From File length 
or (if applicable) 96. 


INVALID ENTRY NUMBER OF ENTRIES PER VECTOR 

This message is caused by an invalid entry in columns 36-39. 
This entry must be ‘a valid number limited only to the size 
of the field. 


INVALID ENTRY LENGTH OF ENTRY 

This message is caused by an invalid entry in columns 40~42/ 
52-54. This entry must be a valid number specifying the 
length of the entry of the vector. Alpha entries must not 
exceed 511 and numeric entries 31. 


INVALID ENTRY PACKED 

This message is caused by an invalid entry in column 43/55, 
Valid entries are blank and P. P is only allowed on numeric 
fields. 


INVALID DECIMAL POSITIONS 
This message is caused by an invalid entry in column 44/56, 
Valid entries are 0-9 or blank. 


INVALID SEQUENCE ENTRY 
This message is caused by an invalid entry in column 45/57. 
Valid entries are A, D, or blank. 


INVALID ALTERNATE VECTOR NAME 

This message is caused by an invalid table or array name 
in columns 46-51. Valid vector names cannot exceed six 
characters and must be unique. Table names must begin 
with the letters TAB. 


REDEFINED VECTOR NAME 

This message is caused by a vector name that has been rede- 
fined. Vector names must be redefined using the same length, 
type, and decimal positions as used on the first definition. 


INVALID/OUT OF BOUNDS LITERAL -~ VECTOR, LITERAL -- 
Literals must contain digits O-9 and cannot exceed the size 
of the vector. 


INVALID/UNDEFINED FIELD NAME -- VECTOR, FIELD NAME -~- 
This message is caused by an illegal field name or a field 
name that has not been defined. 


LINE COUNTER SPECIFICATIONS 


Refer to Section 6 for further information. 


L085 - INVALID FILE NAME OR FILE TYPE 


This message indicates that a file name in columns 7-14 is 
not valid or has not been assigned to a print file. The 
file name must also have been previously defined on the File 
Specification, 
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LO88 - WHEN DEFINED ~FL~ MUST BE IN COL 18-19 


LO90 - INVALID CHANNEL ENTRY 


This message is caused by an illegal channel entry. Valid 
entries are 01712, OL, or FL. 


LO91 - INVALID LINE ENTRY EXCEEDS FORM LENGTH OR 112 


The line position entry must not exceed the form length 
or 112. 


INPUT SPECIFICATIONS 


Refer to Section 8 for further information. 


1084 


1092 


1092 


1093 
1094 


1097 
I101 


1102 


1103 


1107 


1109 


RECORD LINE ASSUMED 43-70 TREATED AS BLANK 


INVALID FILE NAME 

This message indicates that the file name in columns 7-14 
is not valid or has not been assigned to an input file. 
The file name must also have been previously defined on 
the File Specifications. 


FILE NOT DEFINED AS INPUT 

The file type in column 15 of the File Specification form 
has not been specified as I, U, C, or D. 

FIELD LINE ASSUMED 7-42 TREATED AS BLANK 


RECORD LINE WITH FILE MUST BE FIRST INPUT SPEC 
The first Input Specification must contain a file name. 


NO FIELDS DEFINED IN LAST RECORD 
SEQUENCE FIELD SPECIFICATION 


This message is caused by an invalid entry in columns 15-16. 


It must contain a valid sequence entry, either 2 alpha 
characters other than ND or Rb, or a numeric entry from 
01-99 in ascending order within the file. 


INVALID ENTRY -NUMBER- 
The number position entry in column 17 must contain 1 or N 
if the sequence entry is numeric, or blank if alphabetic. 


INVALID ENTRY -OPTION- 

This message is caused by an invalid entry in column 18. 
Valid entries are 0 and blank. The O may only be used on 
numerical entries, and one numerical entry should be non- 
optional. 


INVALID RECORD ID CODE 
This message is caused by an invalid entry between 21-41. 
The position entry must fall within the record length. 


INVALID ENTRY -~STACKER- 
This message is caused by an invalid entry in column 42, 
Valid entries are blank and 17-6 on card files. 
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D-6 


I111 


1113 


1118 


1119 


1120 


1122 


1122 


1159 


1166 


I170 


I172 


1181 


INVALID PACKED ENTRY 

This message is caused by an invalid entry in column 43. 
Valid entries are P or blank. P may be specified only on 
numeric field lines, and if specified, column 52 (decimal 
positions) must not be blank, 


INVALID FROM TO ENTRY 

The FROM and TO entries must be valid numbers and cannot 
exceed the record length. Numeric fields must not exceed 
31. Alpha fields must not exceed 511. Vector load ele- 
ments must be the same length as the element defined on 
the Extension Specifications, and the entire array load 
must not be greater than the array length and modulo the 
element length. 


INVALID FIELD NAME 
This message is caused by an invalid field name in columns 
537-58. 


INVALID CONTROL LEVEL INDICATOR 
This message is caused by an invalid entry in columns 59-60. 
Valid entries are blank and level indicators L1-L9. 


INVALID ENTRY MATCHING-CHAINING FIELD 
This message is caused by an invalid entry in columns 617-62, 
Valid entries are blank, M1-M9, and C1-C9. 


REDEFINED FIELD NAME ~- LOOKAHEAD 
A look-ahead field name must be unique. 


REDEFINED FIELD NAME 
When used, a duplicate field name must contain the same 
length and decimal positions entry as the original. 


INVALID RECORD INDICATOR 
This message occurs when columns 19-20 do not contain a 
valid indicator or look-ahead, 


INVALID FIELD RESULTING INDICATOR 
This message occurs when columns 65-70 do not contain blanks 
or a valid indicator. 


INVALID ENTRY FOR CHAIN OR DEMAND FILE 
Chain or demand files may not contain control levels or 
matching fields. 


INPUT FILE ORDER IS DIFFERENT FROM FILE SPEC 
The input files must be in the same order as defined on the 
File Specifications. 


REDEFINED LENGTH OF MATCHING-CHAINING FIELD 

REDEFINED LENGTH OF CONTROL FIELD. 

This message indicates that the total length of a given 
level on the current record is not identical to the total 
length of the same level of a previous record. 
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I188 - INVALID RECORD RELATION INDICATOR 


I226 - 


1575 = 


This message is caused by an invalid entry in columns 63-64. 
This field must contain a valid indicator or blank. 


INVALID ENTRY DECIMAL POSITIONS 

The decimal positions entry in column 52 must contain a 
blank or 0-9. On vector loads, the decimal positions entry 
must be the same as the defined element. 


UNREFERENCED OR MISGROUPED REFERENCE OF FILE NAME 

This message indicates that an Input Specification has been 
referenced that has not been declared in the File Specifi- 
cation, or that the file names appear more than once and 
not consecutively, or that it does not appear in the same 
order as the File Specification. 


CALCULATION SPECIFICATIONS 


Refer to Section 9 for further information. 


C122 


C122 


C123 


C125 


C128 


C131 


C135 


C135 


REDEFINED FIELD NAME 

This message indicates that the name defined in the result 
field has been previously defined with different length 
and decimal positions. 


REDEFINED FIELD NAME - LOOKAHEAD 

This message indicates that the name defined in the result 
field has been previously defined as a look-ahead field with 
different length and decimal positions. 


INVALID CONTROL LEVEL INDICATOR 

This message is caused by an invalid entry in columns 7-8. 
Valid entries are LO-L9, LR, AN, OR, and, when in a sub 
routine, SR. 


INVALID FACTOR 1 

The field in columns 18-27 containing Factor 1 must be 
present if required, or absent'if not required as speci-~ 
fied by the Operation Code. When present, it must be a 
legal variable. 


INVALID OPERATION CODE 
The operation code specified in columns 28-32 is not legal. 


INVALID FACTOR 2 

The field in columns 337-42 containing Factor 2 must be 
present if required, or absent if not required as specified 
by the operation code. When present, it must be a legal 
variable. 


INVALID RESULT FIELD 

The field in columns 43748 containing the result field must 
be present if required, or absent if not required as speci-~ 
fied by the operation code. When present, it must be a 
legal variable but may not contain a literal. 


INVALID RESULT FIELD NAME 
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C137 


C138 


C140 


C190 


C200 


C207 


C207 


C214 


C215 


C221 


C232 
C304 


C519 


INVALID RESULT FIELD LENGTH 

This message is caused by an invalid entry in columns 49-51. 
The result field length must contain a valid number between 
1-31 for numeric fields or between 1-511 for alpha fields. 


INVALID DECIMAL POSITIONS 
This message is caused by an invalid entry in column 52. 
Valid entries are blank and 0-9. 


INVALID ENTRY HALF ADJUST 

This message is caused by an invalid entry in column 53. 
Valid entries are blank and H. H may only be used with 
arithmetic operators. 


INVALID BEGSR/ENDSR RELATIONSHIP 

This message is used in conjunction with subroutines. Each 
subroutine must begin with a BEGSR and end with an ENDSR, 
and may not contain another subroutine. 


INVALID RESULTING INDICATOR 
This message is caused by an invalid indicator or one that 
should not have been specified. 


INVALID ALPHA LITERAL 
Alpha literals must be contained in apostrophes and must 
follow the rules for forming literals, 


INVALID NUMERIC LITERAL 

This message is caused by an invalid numeric literal. Nu- 
meric literals start with +, -, -, or O-9 and may contain 
only one comma or one decimal point, with no embedded blanks, 
and only digits 079. 


INVALID GOTO - TAG OR EXSR —- BEGSR RELATIONSHIP 

GOTO operations are valid only in conjunction with TAG and 
ENDSR labels. EXSR operators must be associated with a 
BEGSR. 


FACTOR 1 AND FACTOR 2 BOTH LITERALS 
It is illegal to have literals in both Factor 1 and Factor 2, 


RESULT FIELD MAY NOT BE LARGE ENOUGH 
This warning occurs when an overflow condition is likely 
to occur, which would cause high order digits to be lost, 


INVALID OR DUPLICATE TAG, BEGSR, OR ENDSR NAME 


INVALID INDICATOR 
A conditioning indicator must be specified on AND/OR lines 
and must be a valid indicator, 


INVALID AN - OR ENTRY 
This message is caused by an illegal entry. The last of a 
series of AND/OR lines must contain a calculation operation. 
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QUTPUT-FORMAT SPECIFICATIONS 


Refer to Section 10 for further information. 


0097 
0142 
0143 


0146 


0148 


0150 


0151 


0152 


0154 


0154 
0212 


0256 


NO FIELDS OR LITERALS DEFINED IN LAST RECORD 
RECORD LINE ASSUMED 32-70 TREATED AS BLANK 


INVALID OUTPUT RECORD TYPE 

This message is caused by an invalid entry in column 15. 
Valid entries are H, D, T, or E. This entry may also 
contain an N or R on AND/OR lines. 


INVALID FILE NAME 

This message indicates that the file in columns 7-14 is 
not valid or that it has not been previously defined on 
the File Description Specifications as an output file. 


INVALID FIELD NAME 


This message is caused by an invalid entry in columns 327-37. 


A field name previously defined on Input, Extension, or 
Calculations Specification may be used, or one of the 
Special reserved words may be used, 


INVALID BLANK AFTER ENTRY 
The blank after entry in column 39 must contain a blank 
or B. 


INVALID ENDING POSITION 


This message is caused by an invalid entry in columns 40-43. 


This entry must contain a valid number that must not exceed 
the record length of the file, and the length of the field 

must not underflow the record. This must also include the 

size of the editing symbols when used. 


INVALID PACKED ENTRY 

This message is caused by an invalid entry in column 44, 
Valid entries are blank or P. When P is specified, a 
numeric variable must be described in columns 327-37. 


RECORD LINE WITH FILE MUST BE FIRST OUTPUT SPEC 
The first Output Specification must be a record line con- 
taining a file specification. 


FIELD LINE ASSUMED 7-22 TREATED AS BLANK 


EXCPT CALC WITHOUT EXCEPTION OUTPUT RECORD TYPE 
The EXCPT operation code has been used when no Exception 
output records have been defined. 


INVALID STACKER/FETCH ENTRY 

This message is caused by an invalid entry in column 16. 
Valid entries on punch files are 17-6, and on Print files, 
are F or blank, 
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0258 - INVALID SPACE/SKIP ENTRY 
This message is caused by an invalid entry in columns 17-18 
or 19-22, Valid entries for Spacing are blank, 0, or 1-9; 
for Skipping, 0-99, AO-A9, or BO-~B2; and must only be used 
on Print files. 


0273 - INVALID OUTPUT INDICATOR 
The output indicators in columns 23-31 must contain a 
blank or a valid indicator. Valid indicators are 01-99, 
LO-L9, LR, MR, HO, H9, U1-U8, OA-OG, OV, or IP. 


0276 - INVALID EDIT CODE 
Column 38 must contain a blank if the field name field 
contains an alpha variable or literal; when numeric, it may 
contain a blank, 174, A~B-C-D, J-K-L~M, or X~-Y~-Z. 


0277 - INVALID EDIT WORD 
The number of replaceable characters in the edit word 
(columns 45-70) must be equal to or greater in length than 
the length of the field to be edited. 


0279 - INVALID CONSTANT SIZE 


0283 - INVALID FILE TYPE FOR OUTPUT RECORD 
The file type has not been defined as O, U, C, or an input/ 
add file. 


0289 - *PLACE OR *PRINT PRECEDES ALL FIELDS AND CONSTANTS 


0548 - INVALID FILE ADDITION 
The file referenced has not been declared as an add file 
but ADD was specified. ADD will be assumed. 


0554 - ADD NOT SPECIFIED ASSUME -ADD- 
All files, except update files, using "A" in column 66 in 
the File Specifications should have "ADD" in columns 167-18 
of each record in the output of the corresponding file. 


0998 - EDIT TO BE PERFORMED ON ALPHANUMERIC FIELD 
Only numeric items may he edited. 


0999 - BLANK AFTER INVALID FOR OUTPUT LITERAL 
Blank after may not be used after an output literal. 


DOLLAR CARD SPECIFICATIONS 


Refer to Section 11 for further information. 


DOL1 - INVALID ENTRY -NEGATE- 
This message is caused by an invalid or illegal entry in 
column 8. Valid entries are blank or N; however, on some 
Dollar Card Specifications, it is illegal to use the Not 
option. 


DOL2 - INVALID ENTRY -KEYWORD- 


This message is caused by the keyword entry not containing 
a valid option. 


D~-10 


DOL3 —- 
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INVALID ENTRY ~VALUE- 

This message is caused by an illegal entry in the value 
field of the $ option. Alpha entries must contain a char- 
acter from A to Z in column 15, and numeric entries must 
contain blanks or zeroes in columns 15 and 16, 


D-1il1 


APPENDIX E 


EXECUTION-TIME ERROR MESSAGES 


Certain conditions may arise during program execution which require operator 
notification and, in most cases, acknowledgment. Some program errors are re- 
coverable, and some are not. For more information refer to the B_ 1700 


System Software Qperational Guide, Form No. 1068731. 
INPUT ERROR MESSAGES 


The following messages all denote error conditions arising during input, and 
all are recoverable, The program will request a reply from the operator. He 
may respond with "GO" (<mix index>AXGO ), in which case the erroneous record 
will be ignored and the next record from the same file will be read; or he 
may respond with "STOP" (<mix index>AXSTOP ), in which case the erroneous 
record will be ignored, the LR indicator will be turned ON, and all final de- 
tail, total calculations, and output will be performed. 


The occurrence of the following message results from reading an unidentifiable 
input record (i.e., none of the designated record Identification Codes for 
the file could be found in the input record). 

<program=name> = <mix index> : IDENT 
The occurrence of the following message results from reading an input record 
from a file with matching fields specified that is out of Sequence, All re-~ 
cords in matching files must be in sequence, either ascending or descending. 

<program-name> = <mix index> : MSEQ 
The occurrence of the following message results from reading an input record 
which is out of sequence, as specified by the entries in columns 15-18 of the 
Input Specifications. 

<program~name> = <mix index> ;: SEQ 
The occurrence of the following message results from reading an execution- 
time vector record which is out of sequence, as specified by the SEQUENCE 
fields in the Extension Specifications. 

<program~name> = <mix index> : VSEQ 


The occurrence of the following message results when trying to read a demand 
file which is at End-of~File and no End-of-File indicator has been specified. 


<program-name> = <mix index> :;: REOF 
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The occurrence of the following message results when reading a file that con- 
tains an error. 


<program~name> = <mix index> ; READ ERROR 


PROGRAMMED HALTS 


The following message will be displayed at the end of a program cycle if any 
of the halt indicators (HO-H9) are set. Each n will either be blank (in- 
dicator not set) or a number 07-9 (indicator set). 


<program~name> = <mix index> : HALT nnnnnnnnnn 


If the HO, H3, H4, H7, and H9 indicators were set, the message would appear 
as; 


<program=name> = <mix index> : HALT 0 ..34..7. 9 


The program will request a reply from the operator; he may respond with "GO" 
(<mix index> AXGO ), in which case all halt indicators will be turned OFF 
and the program will continue; or, he may respond with "STOP" (<mix index> 
AXSTOP) , in which case the LR indicator will be turned ON, and all total 
calculations and output will be performed. 


FORMS POSITIONING 


The following message will be displayed after all output lines conditioned by 
the 1P indicator have been printed, if FORMS POSITIONING has been specified 
in the Control Card (column 41). The program will request a reply from the 
operator; if he responds with "YES" (<mix index>AXYES), all 1P lines will be 
printed again, and the above message will be repeated; if he responds with 
"NO (<mix index>AXNO), normal processing will begin. 


<program~name> = <mix index> ; AGAIN? 


Printing of the 1P lines may be requested as many times as necessary in order 
to align the forms properly. 


ARITHMETIC ERRORS 


The occurrence of the following message is a result of an attempt to perform 
a DIV (divide) operation using a divisor of zero. The program will be auto- 
matically discontinued (DS-ED) by the MCP. 


<program-name> = <mix index> ;: DIVIDE BY ZERO 


The occurrence of the following message is a result of an attempt to perform 
a SQRT (square root) operation on a negative argument. The program will re- 
quest a reply from the operator; he may respond with "GO" (<mix index> AXGO ), 
in which case the RESULT FIELD will be set to zero and the program will con- 
tinue; or, he may respond with "STOP" (<mix index> AXSTOP ), in which case 

the LR indicator will be turned ON, and all final detail, total calculations, 
and output will be performed, 


<program-name> = <mix index> : SQRT 
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VECTOR (ARRAY, TABLE) ELEMENT ERRORS 


The occurrence of the following is a result of an attempt to reference a 
vector element that is out-of-bounds (i.e., an index value less than or 
equal to zero, or greater than the maximum size of the array as specified 
in columns 36-39 of the Extension Specifications). The program will 
automatically be discontinued (DS-ED) by the MCP. 


<program~name> = <mix index> : INVALID SUBSCRIPT 
Note: Subscript is terminology used for vector element. 


SEQUENCE ERRORS 


The occurrence of the following message indicates indexed data key out of 
sequence. Any response will force EOJ. Program data file will have to be 
re~sorted or program loading file or updating file will require re-working. 


<program~name> = <mix index> : KEYSEQ 


APPENDIX F 


B 1700 RPG TO COBOL TRANSLATOR 
(COFIRS II) 


The B 1700 RPG to COBOL Translator converts RPG source programs to COBOL source 
language disk files. It uses files created during the syntax checking and logic 
generation phases of the B 1700 RPG compiler, thus eliminating the need for a 
separate syntax checking program. It will translate any RPG 1 or RPG II con- 
struct that is acceptable to the B 1700 RPG compiler, 


This close relationship to the B 1700 RPG compiler requires the user to be 
familiar with Burroughs B 1700 RPG as it is defined in the earlier chapters 
of this manual. For a list of differences between B 1700 RPG and other sys- 
tems RPG see Section l. 


Three steps are required for the complete translation of an RPG program to 
B 1700 COBOL. The first is the execution of the B 1700 RPG compiler with 
special $ card options indicating this is a translation run. This causes 
intermediate work files to be saved for the use of the translator, and 
object code is not generated. COFIRS is then executed, It uses the inter- 
mediate work files created by the B 1700 RPG compiler to generate COBOL 
source code on disk. 


The newly generated COBOL program is then compiled to provide executable 
object code. The compiled COBOL program will generally require approximately 
the same amount of memory for execution, and execution time will be approxi- 
mately the same as the original RPG program would have required if compiled 
and executed on the B 1700 computer. 


COFIRS II OPERATION 
The following th®ee steps are required for the COFIRS II operation: 


a. Section 12 describes the control card syntax required by the B 1700 
RPG compiler phase of the translation. Briefly, it is as follows: 


? COMPILE <program~name> WITH RPG LIBRARY 
? DATA RPG/CARD 

$ option cards 

source specification cards 
? END 


The $ option cards to be included in the RPG source deck for use 
by COFIRS II are coded in the same manner as other $ option cards 
used by the B 1700 RPG compiler, with the $ in column seven and 
the COFIRS II option beginning in column nine. Only one option 
may be entered per card, but several $ cards may be entered as 
required by the user (see Section 11). The $ options PACKID, 
FAMILY, FILEID, AREAS, RPERA, and RSIGN are all applicable as 
needed in the RPG source program. The $ options MAP and XMAP 

are not applicable and will be ignored in the COFIRS II trans~- 
lation. 
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The following $ options are available for use exclusively for 
COFIRS II translations: 


$ XLATE This option is required for translation of an RPG pro- 
gram to COBOL on the B 1700. It indicates to the B 1700 
RPG compiler that this is a translation run and that ob- 
ject code is not to be developed for the RPG program. 


$ SPERSE This option will cause RPG statements to be inter- 
spersed with the generated COBOL source statements 
as comments. 


$ XLIST This option causes the translated COBOL statements to be 
printed as they are developed during the execution of 
COFIRS II. 


b, After the RPG compiler goes to End-of-Job, it is necessary to manually 
execute COFIRS II. 


$ EXECUTE COFIRS 


COFIRS II creates the COBOL source file on disk with the file name 
RPGCOB. 


ec. In order to compile the newly translated COBOL program, it is necu- 
essary either to change the name of the RPGCOB file to COBOLW/SOURCE 
or to label equate it. A possible set of compilation control cards 
might be: 


? COMPILE <program-name> COBOL LIBRARY 
? FILE SOURCE NAME = RPGCOB; 
? DATA CARDS 
$ MERGE 
? END 


The B 1700 Systems COBOL Reference Manual, Form No. 1057197, de- 
scribes the $ options available to the user for COBOL compilations. 
The B 1700 System Software Operational Guide, Form No, 1068731, 
describes the use of the FILE statement for label equation. RPGCOB 
is a disk file consisting of 80-character records blocked two. 


The results of converting an RPG program into COBOL are discussed below: 


a. The generated data~names are described in the following example: 


03 REPORT~X-UA-4-5-154-RED is a field in a file description, 


where: 

REPORT is the file name used on the File Description Speci-~ 
fications in the RPG program. 

UA represents the data format of this field (UA, SA, UN, or 
SN are possible). 

4 is the digit displacement of this field in the record. 

5 is the width of this field in digits or bytes, depending 
on the PICTURE associated with this field. 

154 is the relative position of this field in an internal 
table, 

RED indicates that this is a redefinition of another field. 
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The actual data~names from the RPG program will be found in the 
WORKING-STORAGE SECTION with -F appended. These fields are filled 
in the INPUT-MOVE portion of the COBOL program and are used in the 
various calculations as required by the Calculation Specifications 
in the RPG program. 


Compile-time vectors are entered in the same manner as if compiling 
RPG. These tables become WORKING-STORAGE SECTION entries containing 
the vector values entered at compile-time. The individual areas with- 
in this vector are referenced by an entry such as the following: 


03 EX-TABAC-F PC §9(11) CMP OCCURS 5. 
03 PX-TABAC-F PC 9 (4) CMP. 


where: 
EX is the prefix used to designate that this is an element 
in a vector. 
TABAC is the vector name from the Extension Specifications of 
the RPG program, 
PX is the prefix used for the subscript field for this 


table. 


RPG Indicators are prefixed by IND-, e.g., indicator Ol becomes 
IND-Ol. 


References to UDATE will cause a single access to TODAYS-DATE which 
is then stored in the field UDATE-F. 


If PAGE is used in the RPG program, a field, PAGE-F, will be declared 
and logic necessary to increment it is developed. 


TAG names used in the RPG Calculation Specifications will appear as 
paragraph names in the COBOL program with ~F-TAG appended, e.g., 
ENDDET~F-TAG., 


B 1700 COFIRS II allows up to 15 files, 512 fields, and 64 vectors in 
a program for translation, subject to limitations in the RPG Compiler. 


The Program Identification inserted in columns 737-80 is taken from 
columns 75-80 of the RPG Control Card. If this field is left blank, 
the default is RPGOBJ. The new COBOL source file name is RPGCOB and 
is sequenced by 100. 


The following defaults are used if the appropriate information is 
not provided in the RPG source program: 


1) All files: 


Qption Default 
Family Name Internal file name from 
the File Description 
Specifications, 
File ID None. 
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2) Disk files: 


tion Default 
Areas 25. 
Records per Area 500. 
Disk Pack ID None (defaults to 


System Disk). 


All these options, as well as other B 1700 RPG options, may be 
included in the RPG source program to be translated. 


j. System Requirements: 


B 1700 Central Processor 
Minimum of 32 KB Memory 
Card Reader 

Line Printer 

Disk 

MCP I or MCP II 

RPG Compiler 

COBOL Compiler 

COFIRS Object Code 

SDL Interpreter 

COBOL Interpreter 
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TAGSORT WITH RPG 


TAGSORT is a method of sorting records in an input file by creating a tagfile 
by which the input file is sorted. The tagfile is placed on disk and may be 
referenced by any RPG program which contains the original input file for which 
the tagfile was created. 


The method for creating a tagfile is discussed in the B_ 1700 System Software 
Qverational Guide, Form No. 1068731. 


Basically, the tagfile is created by a TAGSORT program which goes through the 
input file, extracting the key field(s) from the record, and adding the po- 
sition of the record, relative to the first record in the file. The tagfile 
is then sorted, using the regular sort concept, and leaving a file of relative 
record numbers (4 bytes in length) sorted in the specified sequence. The 
original input file remains unchanged, 


To access the tagfile in an RPG program, both the tagfile and the original 
input file must be declared on the Input Specifications. The access method 
will be indexed, FACTOR 1 must contain the tagfile name (if no fields with- 
in the tagfile are specified) or the field name containing the relative 
record number within the tagfile, FACTOR 2 contains the name of the original 
input file, and the OPERATION field contains the CHAIN construct. 


In the example shown in table G-l1, the input file DISKFI is used to build a 
tagfile called TAGFILE. Refer to the B_ 1700 System Software Operational Guide, 
Form No. 1068731. 


Table G-l. Building a Tagfile 


Contents of DAGSORT Progras Contents of 
RECD NO 
00001 456 2222 FILE IN DISKFI (DISK (100) 180 1) 00000002 
00002 123 0000 ae aca naga (270) 4 45) 00000005 
00003. 879 1111 TAGSORT 00000008 
00004 653 3333 00000001 
00005 258 4444 00000007 
00006 785 5555 00000004 
00007 551 6666 | 00000006 
00008 327 7777 00000003 
00009 965 8888 7 00000009 
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The contents of DISKFI consists of nine records. The first three digits 
comprise the key field, the last four comprise the data field. 


Since DISKFI was sorted by key in ascending order and record number 2 has the 
lowest key value, record 2 is placed in the first position of the tagfile. 
Record 5 has the second smallest key (258), so 5 is placed in the second po- 
sition of the tagfile, etc. 


In the example shown in table G-2, an RPG program called TAG containing DISKFI 
accesses TAGFILE and produces the resultant output. 


Table G-2. Accessing a Tagfile 


Program called TAG 


FTAGFILE IPE DISK 

FDISKFI IC DISK 

FPRINTIT O PRINTER 

ITAGFILE AA O01 

I Pp 1 40RECNO 
IDISKFI BB 02 

I 1 3OKEY 

I +) 8ODATA 
C RECNO CHAINDISKFI 

OPRINTIT D 01. 

O 10 'KEY' 

O KEY X 15 

O 40 'DATA' 

.@) DATA X 46 


Printer Qutput From TAG 
KEY 123 DATA 0000 


KEY 258 DATA 4444 
KEY 327 DATA 7777 
KEY 456 DATA 2222 
KEY 551 DATA 6666 
KEY 653 DATA 3333 
KEY 785 DATA 5555 
KEY 879 DATA 1111 
KEY 965 DATA 8888 
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RPG PROGRAM CYCLE 


For each record from a primary or secondary file that is processed, the RPG 
object program goes through the same general cycle of operations. After a 
record is read, there are two different instances in time when calculation 
operations are performed and records written out. First, all total calcula- 
tion operations (those conditioned by control level indicators in columns 
7-8) and all total output operations are done. Second, all detail calcula- 
tion operations and all detail output operations are done, 


Total calculations are performed before the information on the record selected 
for processing is made available. Detail calculations are performed after the 
information on the selected record is made available, The following dis~ 
cussion describes this concept in more detail. 


Whenever a record is read, a check is made to determine if information ina 
control field (when one has been specified) is different from the control 
field information on the previous card. A change in the control field in- 
formation indicates that all records from a particular control group have 
been read and a new group is starting. When all records from a group have 
been read (indicated by control level indicators being set ON), operations 
may be done using information accumulated from all records in that group. 

It is at this time that all calculations conditioned by control level indi- 
cators in columns 778 are done. Total output operations are also performed 
immediately after all total calculation operations are completed, Informa~ 
tion on the record read at the beginning of the program cycle is not used in 
these operations; only information from records in the previous control group 
is used. 


Detail calculations occur after the information on the selected record has 
been made available. Detail calculations are used to calculate values needed 
each time a record is processed. They are also used to calculate totals for 
the current control group (if control fields are specified). Immediately 
after detail calculation operations are completed, detail output operations 
are performed. 


The specific steps taken in one program cycle are shown in figure H-1. The 
item numbers in the following description refer to the number in the figure. 
A program cycle begins with step 3 and continues through step 39. 


Lg Initialization: 


a. Data fields and indicators may have been preset to their initial 
values by the compiler; if not they must be initialized now: 


1) All data fields and vectors are initialized to zero (if 
numeric) or blank (if alphanumeric). 


2) All match fields are initialized to high (if descending 
sequence) or low (ascending) collating values. 


H-1 


2. 5. +2 8. 
SET OFF RECORD 
INITIALIZE see DETAIL SET ANY HALT NO IDENTIFIER 4P, L1- ny 
OPEN FILES Me SUTEUR INDICAT bhidiasiglest INDICATOR NO 
VECTORS AND IP REPEAT OVERFLOW H ORS L9, HO-H39, SET ON ON (RPGH 


LO (SET OFF LR 


ETC. 
FOR RPG1 ONLY) 


PRINTING INDICATORS 


ONLY) 
? 


READ FROM 
FiLE JUST PRO-, 


6. CESSED AT 
sToP START: ONE RE- 
pa CORD FROM 
DETAIL TIME | EACH FILE. 16. 
CALCULATIONS L 


RESTART 
PROCESSING 


MULTIFILE 
PROCESSING 
? 


EXTRACT 
LOOK AHEAD 
FIELOS 


EXTRACT 
DATA FIELDS 


SETON LR, 
LI-L9 


SET MR 
INDICATOR 
ON OR OFF 


WITH NO MATCH YES ARE 
FIELDS MULTIPLE 


? INPUT FILES 
DEFINED 
P 


28. 


TOTAL TIME 
OUTPUT AND 
SETTING OF 
OVERFLOW IN- 
DICATORS. 


NO 


OVERFLOW 
OUTPUT TOTAL 
THEN DETAIL 


TOTAL 
TIME 
CALCULATIONS 


20. 


CHOOSE HIGHEST 
PRIORITY RECORD 


BY MATCHING 
FIELD CONTENT 


OVERFLOW 
OCCURRED 
? 


FIRST 


SET OFF FIRST CONTROL 


CONTROL CYCLE BREAKS CONTROL EYELE 22. 21. 
T SPECIF! 
SWITCH ECIFIED c carbine 
NO YES, YES, FIELDS 
UNLOAD VECTORS SPECIFIED 
CLOSE FILES 32. ? 


ETC. 


YES 
NO 


SEQUENCE 
CONTROL ERROR HALT 
BREAK 


OCCURRED 
? 


EXTRACT CONTROL 


FIELDS & SET ON SET ON RECORD 


IDENTIFYING 
INDICATOR 


CONTROL LEVEL 
NO INDICATORS AP- 
PROPRIATELY 


Gi40e6 


Figure H-1. RPG Program Cycle 


(1u09) H xtpueddy 
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3) All control field storage areas are initialized to hexa- 
decimal zeroes. 


4) Indicators LO and IP are set ON, all other indicators are 
set OFF. Under the RPG1 dialect any indicators from 01-99 
used as zero/blank indicators will he set ON, unless also 
used as record identifying indicators. 


b. UDATE, UDAY, UMONTH, UYEAR fields are set, 
c. External indicators are set. 


d. Files are opened (unless files are to be opened automatically 
when first accessed). 


e. The first-control-cycle switch is set on, This is an internal 
switch used to determine when to suppress total time. 


Pre-~execution time vectors are loaded (if specified). 


Detail Output. All heading and detail output operations whose 
indicator conditions are met are performed (this will not include 
output conditioned on overflow indicators). On the very first 
cycle, the option for forms alignment may have been specified. 

If so, step 3 (detail output) is repeated as many times as the 
operator requires. Generally, the programmer will control the 
heading output required on the first cycle by conditioning it on 
the indicator 1P (which will be off for all cycles except the 
first). 


All overflow indicators are set OFF. If any printer file is on the 
overflow line or between the overflow line and the end of the page, 
any overflow indicator associated with that file is set on, 


If any of the halt indicators HO ~ H9 are on, the program branches 
to step 6; otherwise, to step 7. 


A message is displayed indicating which halt indicators are on. The 
operator has 2 options: 


a. STOP. Program branches to step 13. After performing "last 
record," total calculations, and total output, the program will 
terminate, 


b. GO. The program continues at step 7. 


All record identifying indicators are set OFF, 1P, L1-L9 and HO-H9 
are set OFF. LO is set ON. Under the RPG1 dialect LR is also set 
OFF, 


Under the RPG] dialect, the program will always continue at step 9; 
otherwise, LR is tested, If LR is ON, the program branches to 
step 11; otherwise, to step 9. 


The next input record is read. On the first cycle, one record is 
read from each primary and secondary file. On all subsequent cycles, 
the record is read from the file that was processed last. For an in- 
put (not update or combined) file with look-ahead fields, the record 
will already have been read at step 38 of the previous cycle. 


H-3 
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10. 


ll. 


12. 


13. 
14. 


15. 


16. 


17. 


18, 


19, 


20. 


21. 


A test is performed to determine whether the file just read is at 
End-of-File or is conditioned by an external indicator which is OFF 
(on the first cycle, the test is whether any of the files read 
satisfy this condition). If yes, the program branches to step 11; 
otherwise, to step 14. 


If this program has a primary file and at least one secondary file 
(i.e., the program performs multifile processing), the program 
branches to step 12, otherwise, to step 13. 


If all required files are at End-of~File (as specified in column 17 
of the File Specifications), the program branches to step 13; other- 
wise, to step 17. 


Indicators LR and LI-L9 are set ON. 


The record (or in the case of the first cycle, all the records) read 
at step 9 is identified (but the record identifying indicator is not 
yet set ON). A test is performed to determine whether the input 
records are in the sequence specified on the Input Specifications. 
If the record type sequence is incorrect (or if sequenced records 
are specified but the current record cannot be identified), the 
program branches to step 15; otherwise, to step 17. 


The record type sequence error causes the program to halt after 
displaying an appropriate message to the operator. 


The operator may order the program to resume, In which case, the 
out of sequence record is ignored and the next record is read by 
branching to step 9. 


If multiple input files are specified, the program branches to 
step 18 in order to select the next record to be processed. If 
no secondary files are specified, the program continues at step 21. 


If the FORCE opcode was performed during the previous program cycle, 
the forced file is selected for processing and the program branches 
to step 24. 


The current records from each primary and secondary file are in- 
spected in the order that the files were specified on File Speci- 
fications. The first record that has no match fields is selected 
and the program branches to step 24. If all records have match 
fields, the program branches to step 20. 


The record with the highest priority matching field value (highest 
collating value for descending matching sequence, lowest collating 
value for ascending sequence) is selected to be processed next. If 
two or more files have equal and highest priority matching field 
values, the one with highest priority is selected (priority cor- 
responds to the order in which files were specified on File Speci-~ 
fications). 


As there are no secondary files, record selection is unnecessary. 
If the current record from the primary file has match fields, the 
program branches to step 22 to perform matching sequence checking. 


22. 


23, 


24, 


25. 


26. 


27. 


28, 


29. 


30. 


31. 


32, 
33. 
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The match field value of the selected record is compared to the 
match field value of the previous record processed. If it is in 
sequénce, the program continues at step 24, If the match field 
value is out of sequence, the program branches to step 23, 


The program halts after displaying a message to the operator indi- 
cating that a match field sequence error has occurred. 


The program sets ON the record identifying indicator specified for 
the selected record. However, data from this record is not available 
for processing until step 37. If look-ahead fields are specified for 
update or combined files, they are extracted at this point (all other 
look~ahead fields are not extracted until step 38). 


If the selected record has control fields, a test is performed to 
see if the contents are equal to the contents of the control field 
storage area, If the contents are unequal, a control break has 
occurred; the appropriate control level indicators are set ON and 
the new control field contents are stored in the control field 
storage area. Note that until the first control break occurs, the 
control field storage area contains its initial value of hexadecimal 
zeros. 


If the first-control-cycle switch is ON, the program branches to 
step 29; otherwise, to step 27. 


Total calculations (calculations conditioned by control level indi- 
cators LO-L9 in columns 77-8) are performed. 


Total output that is not conditioned by an overflow indicator is 
performed. When this output is complete, the program tests to see 
if the overflow condition has occurred. If any printer file is on 
the overflow line or between the overflow line and the end of the 
page, any overflow indicator associated with that file is set ON. 


If control fields were specified in this program, the program branches 
to step 30; otherwise, to step 31. 


If a control break occurred on this cycle (at step 25), the program 
branches to step 31; otherwise, to step 32. 


The first-control-cycle switch is set OFF. Total Calculations and 
Total Output will be performed on all subsequent cycles (if no con- 
trol break occurs, only LO operations will be performed). 

If indicator LR is ON, the program branches to step 33, 


End-~of-Job routine. 


a. Output any vectors specified with a TO FILENAME on the Extensions 
Specifications. 


b. Perform any file maintenance e.g., sorting an indexed file if 
unordered or if additions have been made, 


ec. Close all files. 
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34, Overflow output is performed for each printer file on which overflow 

& has occurred on this cycle. The test and the output performed take 

35. one of two forms. If an overflow indicator is assigned to the file 
on File Specifications or if overflow output is specified on Output 
Specifications for the file, the test is whether the overflow in- 
dicator for that file is ON (it may have been set ON by SETON; it 
may also have been set OFF if overflow output has been Fetched). If 
so, any Total and then any Detail output for that file which is con- 
ditioned on the overflow indicator is performed (if none is specified, 
no overflow output will be performed). The overflow indicator is 
then set OFF. 


If no overflow indicator is assigned and no overflow output is 
Specified for the file, the test is whether the overflow condition 
was satisfied in steps 4 or 28. If overflow did occur and has not 
been Fetched, the object program automatically generates a skip to 
line 1 of a new page. 


36. The matching record indicator MR is set ON or OFF. MR is set ON if 
a match has occurred (i.e., if selected record has a match field and 
the current match field value was originally selected from a pri- 
mary record). 


37. Data is extracted from the current record and made available for 
processing. Any field indicators specified are set ON or OFF to 
reflect the status of the data fields. 


38. If the current record is from an input (not update or combined) file 
which has look~ahead fields, the next record from that file is read, 
and the look-ahead fields are extracted and made available to the 
program, 


Note that look-ahead fields from an update and combined file are made 
available at step 24. 


39. Detail time calculations are performed. Processing continues with 
step 3. 
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